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**F 1LE*®1D** ]OSUBNPAG 
111111 000000 SSSSSSSS UU UU BBBBBBBB NN NN PPPPPPPP AAAAAA GGGGGGGG 
III] 000000 SSSSSSSS UU UU BBBBBBBB NN NN PPPPPPPP AAAAAA GGGGGGGG 
i 00 oo SS UU UU BB BB NN NN PP PP AA GG 
I 00 00 SS UU UU 8B BB NN NN PP AA AA GG 
II 00 oo SS UU UU BB BB NNNN NN PP PP AA AA GG 
II 00 00 SS UU UU BB BB NNNN NN PP PP AA AA GG 
I] 00 00 SSSSSS UU UU BBBBBBBB NN NN NN PPPPPPPP AA AA GG 
I] 00 00 SSSSSS UU UU BBBBBBBB NN NN NN PPPPPPPP aa AA GG 
I] 00 00 SS UU UU BB BB NN NNNN PP AAAAAAAAAA GG GGGGGG 
I! 00 00 SS UU UU BB BB NN NNNN PP AAAAAAAAAA GG GGGGGG 
II 00 00 SS UU UU 6B BB NN NN PP AA AA GG GG eeee 
I] 00 00 SS UU UU BB BB NN NN PP AA AA GG GG eeee 
T1111] 000000 SSSSSSSS UUUUUUUUUU = BBBBBBBB NN NN PP Lal AA GGGGGG eee 
III] 000000 SSSSSSSS UUUUJUUUUU - BBBBBBBB NN NN PP AA Ba GGGGGG eee 
LL III! SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII] SSSSSSSS 
LLLLLLLLLL W111 SSSSSSSS 
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ow 
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; CANCEL 1/0 ON CHAN 
Handle Last Channel Deassign 
3 a DIAGNOSTIC BUFF 
6 RELEASE 1/0 CHANNEL 

41 REQUEST 1/0 CHANNEL 

47 1/0 pequest pomp ation processing for Class Drivers 

5 8 1/0 REQUEST COMPLETION PROCESSIN 
) 6 MOUNT VERIFICATION HELPER 
) 8 0 INITIATE 1/0 FUNCTION ON DEVICE 
) 08 A prery Buffered Data Path 
) 819 Release Buffered Data Path 
) 904 REQUEST AND ALLOCATE UNIBUS MAP REGISTERS FOR CLASS DRIVER 
) 945 REQUEST UNIBUS am Re OL e TERS 
) 980 A LOCATE UUNIBUS MAP REGISTERS 
) 1087 Llocate a specific set of UNIBUS Map Registers 
) 1196 ren Llocate UNIBUS Map Registers 
) 1380 Release UN 4 A Registers 
) 1529 RETURN T 
) 1548 WAITFOR ONTERRUPT OR TIMEOUT AND KEEP CHANNEL 
) 158 WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 
) 161 ALLOCATE SYSTEM PAGE TABLE 
) 165 comeed pevice NAME AND UNIT 
) 1934 BROADCAST TO A TE 
) 047 ye i ire MESSAGE TO CONSOLE 
) 131 SCAN THE 1/0 DATA E 
) 191 SCAN THE I/0 DATA BASE BOTH PRIMARY & SECONDARY PATHS 
) $86 TOCSCTREINIT - Call driver controller init. routine 
) 2 IOCSUNITINIT = Call driver unit init. routine 
) 406 Parse Device Name String 
) 587 Search 1/0 Database for Device 
) 751 pent Sous 1/0 Database Search 
) 801 heck UCB Against Search Rules 
) 2901 FOCETHMEADC B 
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~TITLE JOSUBNPAG = NONPAGED 1/0 RELATED ROUTIN 


LARA RRARARARAALAAALAAL ELA LAL ELAS SESE SEES ELSE ESE EEE REESE EER CESSES EE Ta Tea oY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERV 


*® 
:* © 
*® * 
*® « 
** ® 
**® ® 
it THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
:e ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
« HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* 0 PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;# TRANSFERRED. . 

® 
j THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:® CORPORATION. » 
** & 
** + 
'® ® 
:* * 
:* * 
* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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00 
00 
9 3 NONPAGED 1/0 RELATED SUBROUTINES 
4444 MODIFIED BY: 
44 V03-038 wMC0004 Wayne Cardoza 23-Aug-1984 
444 Add routine for emergency message to console. 
0000 v03-037 yc 000s Wayne Cardoza 14-Aug-1984 
0900 ix ROW0409 to restore the correct register. 
000 V03-036 ACG044 Andrew C. Goldstein, 7-Aug-1984 17:52 
000 4 Save R8 in IOCSLAST_CHAN; fix order of tests in IOCSTESTUNIT 
st 4 for correct allocation and mount checks. Fix handling of 
, 0 ? lock value block on device lock in IOCSTESTUNIT. 
4 V03-035 ROW0409 Ralph 0. Weber 6-AUG-1984 
4 Fix release map registers processing of requests waiting for 
4 map re ‘eters. Restore saved fork registers -- including the 
0 4 POT address -- before the calling IOCSALOMAPUDA at 
? REALLOC "tb _MAPREGS. 
v03-034 TCM0006 udy f Matthews 20-Jul-1984 
Add routine 1ocsTHRe DCRB. 
v03-033 wMc0002 Weyne Cardoza 03-May-1984 
Add support for MNTVERPND bit. 
v03-032 RASO300 Ron Schaefer 22-May-1984 


Change IOCSCVT_DEVNAM to only prefix cluster node names if 
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— ' § *QOODODOOOO0OO0 O00 OOOO O09 0009 09 09090909 09 09 SII NI NSIS INIA AAA AAAAOOUM 
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Sete Se Se Ge Ge Ge Ge Se Ge Ge Be Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ve Ge Be Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se He Se Ge Ge Sse Se Ge Se Ge Se Se Se Ge Ge Se Se Se 


a a tt st ss 


err 


S$ Macro V04-00 Pa 
~SEP=19 SYS. SRCJIOSUBNPAG.MAR; 1 ve i) 
the DEVSV_NNM Gevice characteristic is set in UCBSL_DEVCHAR2. 
Add additTonal itemcode (4) to IOCSCVT_DEVNAM to provide 
the device name string sans unit number. 
TMKO001 Todd M. Katy 23-Apr-1984 
Remove the SLOGDEF data definitions. 
RLRPDTADP Robert L. Renoper’s 99-Apr-1984 
Modify ensrypeints used for allocating and dealloca 


tin 
Buffered Data Paths and UNIBUS oer Registers for UaPORTS (UDA), 
to pickup pointer for ADP from PDTSL_ADP(R4). 


ACG0414 Andrew C. Goldstein 30-Mar-1984 15:49 
Minor peree and searching fixes in [OCSSEARCH... 
add IOC$V_ALLOC to force allocation 


ACG0406 Andrew C. Goldstein, 16-Mar-1984 15:42 
Fix bugs in searching for allocation class 


ACG0399 Andrew C. Goldstein, 24-Feb-1984 22:28 

Add IOCSLAST_CHAN subroutine, and move in internal 1/0 

Petepese parse and search routines, so they can be called 
y 


RLRMAPSP Robert L. Rappaport 15-Feb-1984 
Correct bug in BEQL destination in IOCSALOUBAMAPSP that is 
only trigesres if the range specified, coincides with the 
exact end of an extent of map registers. 


ROWO292 Ralph 0. Weber 4-FEB-1984 
Bae, erence displacements broken by movement of EXESMOUNTVER to 
XXX. 


KPLO001 Peter Lieberwirth 7-Nov-1983 
Add paths for new processors to CPUDISP invocation. 


ROW0244 Boles 0. Weber 17-OCT-1983 

Change the IOCSCVT_DEVNAM name prring formation rules to 
eliminate _SISTTAO: and other allocation class based names 
for devices which can never be dual pathed. See routine 
comments for details of current operation mode. 


ROW0239 Ralph 0. Weber 11-OCT-1983 

Fix IOCSCVT_DEVNAM to not insert node name or trailing dollar 
sign when node name is null. Also correct comments describing 
the R4 argument to IOCSCVT_DEVNAM. 


ROWO234 Ralph 0. Weber 5-0CT-1983 

Change IOCSCVT_DEVNAM to preeuse S$allocation-class$device 
strings complefely in ASCII, when allocation class output is 
requested. In the process rip up the whole thing because that 
was the only way to get something that worked and didn't 
occupy all non-page memory 


TCMO005 irydy C. Matthews 5-0CT-1983 
Add IOCS$SCAN_IODB_2P which is Func ttonat\y the same as 
IOCS$SCAN_IOCB excépt that both primary and secondary paths to 
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a device are scanned. 


v03-019 KDM0084 Kathleen D. Morse 26-Sep-1983 
Added MicroVAX I support to CPUDISP macros. 


v03-018 ROW0221 Ralph 0. Weber 8-SEP-1983 
Change IOCSUNITINIT to Look for a unit initialization routine 
in the DDT before looking in the CRB. See the note in the 
routine's header for details. 


v03-017 ROW0203 Ralph 0. Weber 5-AUG-1983 
Add two new routines IOCSCTRLINIT and IOCSUNITINIT. These are 
the proscribed mechanism for canting device driver controller 
and unit initialization routines. hese routines correctly 
setup for, locate, and call the appropriate driver routines. 


v03-016 TCM0004 Trudy C. Matthews 26-Jul-1983 
Change IOCSCVT_DEVNAM to return the <allocation_class>+ 
<devnam> form of device name if R4 > 0. 


v03-015 RLRBYTEOFF Robert L. Pespecert 27-Jun-1983 
Correct error in IOCSREQDATAPUDA. Error is that this 
routine has operated in a NOWAIT mode, that is, if no 
Buffered Datapath was available, we just used the 
Direct ootageys- parercunatess this doesn't work on 
780's and 790's if the user buffer is located at an 


odd arts address since “ct Offset doesn't work on the 
Direct Datapath for the UNIBUS Adapters on these 
processors. 
V03-014 LMPBUILD L. Mark Pilant, 26-Jun-1983 23:11 
Change references from TTYSK_WB_HDRLEN to TTYSK_WB_LENGTH. 
v03-013 TCM0003 Trudy C. Matthews 17-Jun-1983 


Change the way cluster-style device names are conditionally 
returned, such that cluster-style names are returned for 
local disk devices if the oyetee is participating in a 


cluster (routine IOCSCVT_DEVNAM). 

vO3-012 TCMO002 Trudy C. Matthews 09-Jun-1983 
Fix bug in TCMO001. 

v03-011 TCMO001 Trudy C. Matthews 21-Apr-1983 


Add new parameter to IOCSCVT_DEVNAM that allows caller 
to specify whether he wants Ehe node name returned for 
local devices or not. 


SOoOSOSOSCOOSCOSOSOSOOSOSOSSSOSSOSSOSOSOSOSOSSOSOSOSOSOSOOOOSOOOOOOOOoOO 


v03-010 ROWO0188 Ralph 0. Weber 30-APR-1983 
p Fix broken branches to PMS$ routines. 
v03-009 KTA3022 Kerbey T. Altmann 29-Dec-1982 
Enhance KTA3018. Add new routine to scan the I0 


data base and return the blocks. 


v03-008 ROW0140 Ralph 0. Weber 18-NOV-1982 
Cause IOCSDALOCUBAMAP to give non-fatal INCONSTATE, 
“Inconsistant UBA data base’’ bugcheck if number of map 
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registers to deallocate is zero. 


MLJ0101 Martin L. Jack 11-Nov-1982 
Add $SBDEF. 


TA3018 erbey T. Altmann 01-Nov-1982 
a CvT _DEVNANE tor new 10 database. 


0130 Reign © Weber 5-0CT-1982 
ee IOCSDELMBX whose “funct Yona ity is replaced by new 
routines in a B UCBCREDEL 


DM0002 Kathleen D. Morse 28-Jun-1982 
Added SDCDEF. 


RLROOOS Robert L. Rappaport 1-June-1982 
Correct errors in UNIBUS map register ng gets ok and 
deallocation that occur when the number of ac 
descriptors is zero. Errors were in TOCSALOUBAMAPSP 
(allocation error), IOCSALOUBAPRM (allocation error), 
and IOCSDALOCUBAMAP (deallocation error). The hel 
in IOCSDALOCUBAMAP is corrected in a patch to V3.1. 


RLROOO? rt L. Regeepers 22-May-1982 
Remove IOCSREGMAPREEN and all comments that reference it. 


RLROOO! Robert L. Pegpapers 22-May-1982 

Correct error in UNIBUS map register allocation that 
meet | allocated registers when the number of active 
descriptors was zero. 

This bug corrected in patch to V3.1. 
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; MACRO LIBRARY CALLS 
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v04=000 CANCEL 1/0 ON CHANNEL mit} OO: 24:33 SYS.SRCJIOSUBNPAG.MAR; 1 ° (%) 
39 ; .SBTTL CANCEL 1/0 ON CHANNEL 
4} ; IOCSCANCELIO = CANCEL 1/0 ON CHANNEL 
rk : THIS ROUTINE IS A DEVICE INDEPENDENT CANCEL I/0 ROUTINE THAT CONDITIONALLY 
0 44 ; MARKS THE UCB SUCH THAT THE CURRENT 1/0 REQUEST WILL BE CANCELED IF CONDITIONS 
43 ; WARRANT SUCH A ACTION. 
¢3 ; INPUTS: 
48 ; 
0 49 ; R2 = 
990 20 : R3 = CURRENT I 
: R4 = PCB ADDRESS. 
999 3g ; RS = UCB ADDRESS. 
0000 253; 
B88 £2 : OUTPUTS: 
9000 36 : IF THE DEVICE IS BUSY, THE REQUEST IS FOR THE CURRENT PROCESS, AND 
000 257: THE 1/0 WAS ISSUED FROM THE DESIGNATED CHANNEL, THEN THE CANCEL 1/0 
44 38 ; BIT IS SET IN THE CORRESPONDING UCB. 
0000 260: R2, R3, R4, AND RS ARE PRESERVED ACROSS CALL. 
0000 261 :- 
0000 6¢ 
00000000 26 .PSECT WIONONPAGED 
909 64 IOCS$CANCELIO:: :CANCEL 1/0 ON CHANNEL 
116445 08 €1 900 65 BBC #UCBSV_BSY,UCB$W_STS(R5).10$ ;IF CLR, DEVICE NOT BUSY 
60 AS 6©0C AS” —O1s«é000 66 CMPL IRP$L_PID(R3) ,PCBSL_PID(R4) ;PROCESS ID MATCH? 
OA 12 OOOA 267 BNEQ s1F NEQ NO 
28 As 52)—=i«wjB SCC 68 CMPW = s«R2,, IRPSW_CHAN(R3) [CHANNEL NUMBER MATCH 
4 12 0010 269 BNEQ 108 “IF NEQ NO 
64 05 08 AB 0012 370 BISW  #UCBSM_CANCEL,UCBS$W_STS(R5) ;SET CANCEL PENDING 
05 0016 271 108: RSB : 


| 
NEGATIVE OF THE CHANNEL NUMBER. 
O PACKET. 
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-SBTTL Handle Last Channel Deassign 


* 
IOCSLAST_CHAN = Last Channel pat 1 Specific 
IOCSLAST_CHAN_AMBX = Last Assoc. MBX Channel Deassign Specific 


Functional Description: 


Common functions done on 7 channel deassignment are handled. The 
driver's cancel I/0 routine is called with an a prepriete reason code 
(CANSC_DASSGN for regular deassign, or CANSC_AMBXDGN for associated 
mailboxes). If after the cancel routine finished UCBSV_DELETEUCB is 
set, the UCB is credited and deleted. 


Inputs: 

RS UCB address 

R2 Channel index (LAST_CHAN only) 
Outputs: 


RO thru R3 destroyed. 
If appropriate, UCB is deallocated. 


-ENABLE LSB 
IOCSLAST_CHAN_AMBX: : 
PUSHL” R8 


PIPMPONIPININPINININD 2 2 9 OF FOO ODODOOOCO CO O0OO0 OOOO OWW W099 OW NINN NINN 
WOO NIA NE WIN OOD NAME WIN 9 OO NOAM EWI $$ 9 OD NAME WWI SOOO NOUS WN OO OONOUEWW 


0 
0 
0 
0 
0 
0 
0 
0 
0 
58 DD 0 ; Save R8 
-_— 7 CLRQ R ; Clear unused cancel inputs. 
58 02 9A 00 MOVZBL #CANSC_AMBXDGN, R8 ; Set cancel reason code. 
09 11 O1E BRB 10$ 
020 
020 IOCSLAST_CHAN:: 
58 dd 0020 PUSHL R8 3 Save R8& 
53 58 a5 00 0022 MOVL UCBSL_IRP(RS), R3 ; Get active packet address. 
58 01 9A $ MOVZBL #CANST_DASSGN, RB ; Set cancel reason code. 
50 0088 C5 DO 0029 108: MOVL UCBSL_DDT(R5), RO ; Get DDT address. 
0 SETIPL UCBSB-FIPL(RSS > Raise to fork IPL. 
0c BO «616 «(00 J @DD0T$C_CANCEL (RO) ; Call driver's cancel 1/0 routine. 
0 SETIPL #IPL$_ASTDEL 3; Lower IPL. 
1A 38 AS = 617—~—~=COEO 8 BBS #DEVSV_ALL, - ; Branch if still allocated 
D pS tel BEVCHAR(RS) , 308 
38 AS 00100004 8F D3 003D BITL #DEVSA_TRM'DEVSM_ MBX, - ; Is this a terminal, remote terminal 
5 YCBSL _BEVCHAR (RS) 3; or mailbox? 
5 13 ; BEQL 0$ : Branch if not. 
00 38 AS 7 «2&4 4 BBSC #DEVSV_OPR, - ; Else, clear OPR bit. é 
4C UCBSL_BEVCHAR(RS), 20$ ; This is an implicit operator disable. 
19 €1 4C 20$ BBC #UCBST_DELETE > ; Branch if UCB not to be deleted. 
06 64 A af SCBSL_STS(R5), 308 
FFAC' 3 5 BSBw —«s IOC SCREDIT_UCB : Else credit UCB quotas, 
FFA9* 54 BSBW IOCSDELETE_UCB ; and delete the UCB. 
58 8ED rH 30$ POPL R8 ; Restore R 
0 Hs RSB 


sees 
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Handle Last Channel Deassign 
0058 330 -DISABLE LSB 
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sang AMM BATER Smo "USE INE BERET MME MEN, 
: a -SBTTL FILL DIAGNOSTIC BUFFER 
IOCSDIAGBUFILL = FILL DIAGNOSTIC BUFFER 
THIS ROUTINE IS CALLED AT_THE END OF AN I/O OPERATION, BUT BEFORE RELEASING 
THE 1/0 CHANNEL, TO FILL THE FINAL DEVICE PARAMETERS INTO AN INTERNAL DIAG- 


NOSTIC BUFFER If ONE IS SPECIFIED. 
INPUTS: 


R4 = ADDRESS OF DEVICE CSR REGISTER. 
R5 = DEVICE UNIT UCB ADDRESS. 


WS SF VS ses Se soowwewoweeeeeeen 

fo Pomel sdidedesdesdesdesdestesdesdesdestestestestesde desde sso) 

DPD PUPP BS Be EE AAI AINA OO 

AMO ODNOA NEW OOO NAUSEA OOONOUES TO 
Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se 
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OUTPUTS: 
IF A DIAGNOSTIC BUFFER WAS SPECIFIED IN THE ORIGINAL REQUEST, THEN 
THE COMPLETION TIME, FINAL ERROR COUNTERS, AND DEVICE REGISTERS ARE 
FILLED INTO THE DIAGNOSTIC BUFFER. 
IOCSDIAGBUFILL:: :FILL DIAGNOSTIC BUFFER 
53 58 AS DO MOVL  UCBSL_IRP(RS),R3 iGET ADDRESS OF 1/0 PACKET 
1B eA As 07”—=sé#€E:? BBC #IRPSU_DIAGBUF ,IRPSW_STS(R3),10$ ;1F CLR, NO DIAGNOSTIC BUFFER 
0 4¢ 83 DO MOVL @IRPSLDIAGBUF(R3),RO  ;GET ADDRESS OF INTERNAL BUFFER DATA AREA 
50 (08 ¢0 ADDL #8,RO [POINT PAST START TIME 
80 O0000000°EF 7D OVG EXESGQ_SYSTIME,(RO)+ | INSERT COMPLETION TIME 
80 0080 (5 3¢ MOVZWL UCBSB_ERTCNT(R5),(RO)+ INSERT FINAL ERROR COUNTERS 
0088 C5 = 00 UCBSL~DDT (RS) ,R2 [GET ADDRESS OF DDT 
10 B2 i6 zc wd SB @DDTSC_REGDUMP(R2) :CALL DEVICE SPECIFIC REGISTER DUMP ROUTINE 
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LOSUBNPAG = NONPAGED 1/0 RELATED SUBROUTINES 16-SEP-19 :1 AX/VMS Macro v04-00 Page 10 10 
yO. 800 RELEASE 1/0 CHANNEL eT a ee ee ~ ww vd 
63 ~SBTTL RELEASE 1/0 CHANNEL 
ge ; IOCSRELCHAN = RELEASE ALL 1/0 CHANNELS | 
98 ; IOCSRELSCHAN - RELEASE SECONDARY I/O CHANNEL 
68 ; THIS ROUTINE IS CALLED AT THE END OF AN I/O OPERATION TO RELEASE ALL 
§ 3; CHANNELS THE I/O WAS BEING PERFORMED ON. 
0 rh : INPUTS: 
0 78 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
3 : OUTPUTS: 
0 rg ; THE CHANNELS ARE RELEASED AND AN ATTEMPT IS MADE TO REMOVE THE NEXT 
0080 378: WAITING DRIVER PROCESS FROM EACH CHANNEL QUEUE. IF A DRIVER PROCESS 
0080 379: IS WAITING, THEN THE CHANNEL IS ASSIGNED TO THAT DRIVER PROCESS AND 
0080 0; IT IS CALLED VIA A JSB TO ITS CHANNEL WAIT RETURN ADDRESS. WHEN THE 
0080 1; CALLED DRIVER PROCESS RETURNS, A RETURN IS MADE TO THE DRIVER PROCESS 
008 é ; THAT RELEASED THE CHANNEL. IF THERE IS NO DRIVER PROCESS WAITING FOR 
9080 83 : THE CHANNEL, THEN THE CHANNEL STATUS IS SET TO IDLE. 
0080 85 ; R3 AND R4 ARE PRESERVED ACROSS CALL. 
080 86 i- 
0080 38 
0080 388 .ENABL LSB 
0080 389 IOCSRELSCHAN:: RELEASE SECONDARY 1/0, CHANNEL 
50 34 AS DO 0080 390 MOVL UCBS$L_CRB(RS),RO [GET ADDRESS OF PRIMARY CRB 
50 20 A0 DO 0084 391 MOVL § CRBSLLINK(ROS ,RO 3GET ADDRESS OF SECONARY CRB 
10 11 0088 32 BRB 208 
OOBA 93 IOCSRELCHAN:: ? RELEASE 1/0 CHANNEL 
50 246 a5 DO O08A 394 MOVL  UCBS$L_CRB(R5) ,RO [GET ADDRESS OF PRIMARY CRB 
50 20 Ad b9 OBE 95 MOVL CRBSL-LINK KtROSR RO GET ADDRESS OF SECONDARY CRB 
Oe 1 09 96 BEQL 10% :1F EQL NONE 
4 10 97 BSBB ss 208 TRELEASE SECONDARY CHANNEL 
50 24 A5 00 98 10S: MOVL §UCBS$L_CRB(R5S),RO joer ADDRESS OF PRIMARY CRB 
25 0E AO 00. «ET 99 20S: BBC #CRBSV_BSY, CRASB_MASK(ROS . THEN CHANNEL NOT BUSY 
51 2c A DO 400 MOVL §§ CRBSL_INTD+VECSL~IDB(R CRON RT. sot AbDRESS'6 
04601 55 O01 401 CMPL RS IDB$L_OWNER (RT) :DRIVER PROCESS oun LR ANEL ? 
1B O12 40¢ BNEQ :1F NEQ NO 
52 0080 OF 40 REMQUE @CRBSL_WOFL(RO).R2 :GET ADDRESS OF NEXT DRIVER FORK BLOCK 
1 1D 404 BVS :IF VS NO DRIVER PROCESS WAITING 
3 BS 405 PUSHR #*M<R3,R4,R5> SSAVE CONTEXT OF CURRENT DRIVER ES 
55 D 46 MOVL R2,R :COPY ADDRESS OF DRIVER PROCESS FORK BLOCK 
53-10 a5 OD 4 MOVL  UCBSL_FR3(R5),R3 [LOAD WAITING DRIVER PROCESS CON 
54 $1 D 408 MOVL  IDBSL™CSR(R1),R [SET ASSIGNED CHANNEL CSR ADDRES 
04 Al 5 D 409 MOVL 5, 1DB8$L OVNERCR 7SET ADDRESS OF OWNER PROCESS ucB 
0c 8° 16 410 JSB aucasy ret [CALL DRIVER AT CHANNEL WAIT RETURN ADDRESS 
8 BA 41} os POPR #°M<RSRG, RSD SRESTORE PREVIOUS DRIVER PROCESS CONTEXT 
04 Al 4 £1 40S: CLRL IDBS$L_OWNER(R1) “CLEAR OWNER UNIT UCB ADDRESS 
OE AO 01 A aig B1¢8 #CRBSA_BSY,CRBSB -MASK (ROS SCLEAR CHANNEL BUSY 
416 .DSABL LSB 
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LOSUBNPAG = NONPAGED 1/0 RELATED SUBROUTINES 16-SEP-1984 00:21: AX/VMS Macro Vv04-00 Page 11 
yO2~000 REQUEST 1/0 CHANNEL mits 80:24:33 YeYs. SRCJIOSUBNPAG.MAR; 1 ve wD 
cp ‘Is ie ~SBTTL REQUEST 1/0 CHANNEL 
CD 420 : IOCSREQPCHANH = REQUEST PRIMARY I/O CHANNEL HIGH PRIORITY 
CD 421 : IOCSREQSCHANH = REQUEST SECONDA RY 1/0 CHANNEL HIGH PRIORITY 
CD 4 : ; IOCSREQPCHANL = REQUEST PRIMARY 1/0 CHANNEL LOW PRIORITY 
cD 4 3: IOCSREQSCHANL = REQUEST SECONDARY 1/0 CHANNEL LOW PRIORITY 
CD 425 : THESE ROUTINES ARE CALLED TO REQUEST AN I/O CHANNEL TO PERFORM AN 1/0 
cD 4 $ : OPERATION ON. 
cb 4 8 : INPUTS 
be 430 ; R5 = UCB ADDRESS OF DEVICE UNIT. 
cp 4 1; O4(SP) = RETURN ADDRESS OF CALLER'S CALLER. 
O¢D 4 5 ; OUTPUTS: 
OCD 435: IF THE SPECIFIED 1/0 CHANNEL IS IDLE, THEN IT IS IMMEDIATELY 
OCD 4 $ : ASSIGNED TO THE CURRENT DRIVER PROCESS. ELSE THE DRIVER PROCESS 
OCD 437: CONTEXT IS SAVED IN ITS FORK BLOCK, THE FORK BLOCK IS INSERTED 
0OCD 438: IN THE CHANNEL WAIT QUEUE, AND A RETURN TO THE DRIVER PROCESS' 
O0¢D 439 ; CALLER IS EXECUTED. 
OOCD 441: WHEN THE CHANNEL IS ASSIGNED, THE CSR ADDRESS OF THE ASSIGNED 
90D 44g ; CONTROLLER IS RETURNED TO THE CALLER IN REGISTER 
99¢D 444 : R3 IS PRESERVED ACROSS CALL. 
seb te 
OCD 109 .ENABL LSB 
OCD 448 IOCSREQSCHANH:: ;REQUEST SECONDARY 1/0 CHANNEL HIGH PRIORITY 
50 34 AS 00 O00CD 449 MOVL UCBSL_CRB(RS),RO [GET ADDRESS OF PRIMARY CRB 
50 20 Ad v0 D1 430 ROVL CRBSL LINK (ROS ,RO 3GET ADDRESS OF SECONDARY CRB 
b007 43¢ IOCSREQSCHANL: : :REQUEST SECONDARY 1/0 CHANNEL LOW PRIORITY 
50 34 AS 0 0007 45 MOVL  UCBSL_CRB(RS),RO :GET ADDRESS OF PRIMARY CRB 
500.20 Ad 00 aor 434 ROVL cRBSL L=LINK (ROS ,RO 3GET ADDRESS OF SECONDARY CRB 
6 £1 456 IOCSREQPCHANH: : : REQUEST PRIMARY 1/0 CHANNEL HIGH PRIORITY 
50 24 a5 DO 00E1 45 MOVL UCBSL_CRB(R5) RO [GET ADDRESS OF PRIMARY 
52 30 b0 OE 458 10S: ROVL RO,Re ;SET ADDDRESS OF WAIT QUEUE LISTHEAD 
EA 460 IOCSREQPCHANL:: REQUEST PRIMARY 1/0 CHANNEL LOW PRIORITY 
59 4 a5 D EA 461 VL. —«UCBSL -CRB(RS) RO [GET ADDRESS OF PRIMARY CRB 
AO OD EE 4 : 0$:  MOVL CRBSL “Wa aBL (ROS ,R2 iGET ADDRESS OF LAST ENTRY IN QUEUE 
51 CAO OD Fo 463 30$: MOVL CR BSL IN +VEC$L_IDB(RO).R1 ;GET SDDRESS OF 
08 0F AO) «(00 C*€E F6 464 BBSS  #CRBS? Bsy «RSE “MASK(ROS,40$ ;IF SET, THEN CHANNEL BUS 
54 D FB 465 MOVL 1DB8 BSL genet 7$ET ASSIGNED CHANNEL CSR ADDRESS 
04 Al 5 FE 46 MOVL 5, 1DB$L GUNeR GRID [SET OWNER UCB ADDRESS 
5 1 46 RSB 3 
10 a5 5 06 1 468 40$: MOVL  R3 gyces BSL FR (R5) *SAVE R3_IN FORK BLOCK 
Oc AS BEDO 01 46 POPL UCB ; SAVE CHANNEL WAIT RETURN ADDRESS P 
62 $ OE 01 4 : INSQUE UCB BSt fori eke) CRBSL_WOFL(R2) ; INSERT DRIVER PROCESS IN CHANNEL WAI™ 
04 A D| 1 5 47 CMPL = RS, IDBSL_OWNER(R1) SCURRENT DRIVER PR OCESS OWNER? 
é 11 476 BNEQ } 6E-« S$ ‘IF NEQ, BRANCH TO RETURN 
FF 3 114 473 nn BRW IOCSRELCHAN [IF EQL BRW TO RELEASE CHANNELS 
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47 -SBTTL 1/0 Request Completion Processing for Class Drivers 


+ 
IOCSALTREQCOM = 1/0 Request Complete Alternate Entry. 


This routine is entered when an 1/0 operation is completed on one 
one of the devices using the disk or tape class drivers. 
The packet is inserted in the 1/0 finish queue for I/0 post 


processing. 

INPUTS: 
RO = First Llongword of 1/0 status 
R1 = Second longword of I/0 status 
R5 = CDRP address 


OUTPUTS: 


The 1/0 packet is inserted in the 1/0 Post Processing Queue, 
a Software interrupt is requested to initiate 1/0 Post 


Sete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge te 


Processing. 
IOCSALTREQCOM: : 
MOVAB CDRPSL_IOQFL(RS) ,R3 ; R3 => IRP section of CDRP. This is 
: for compatibility with rest of Q10 
; _logic. 
MOVL IRP$L_UC : Rs EN ucB. 


B(R3) RS 
INCL UCBSLTOPCNT(RS5) 
BLBC ~— RO, 208 


Increment operations completed 


LBC implies I/0 error, so goto call 
MOUNT VERIFICATION just in case. 


to mova RO, IRP$L_MEDIA(R3) ; Save final 1/0 status in IRP. 
-IF DF CAS_MEASURE_IOT 
JSB G*PMSSEND_10 ; Insert end of 1/0 transaction message 
-ENDC 
Usslin STALEShOPOERS PSM: JRATECE*SSFRuARe"DatebnaeT™® SM 
RSB - ; 

208: 


If LBC, call MOUNT VERIFICATION. 
Go back to normal flow. 
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JSB G*EXESMOUNTVER 
BRB 10$ 
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~SBTTL 1/0 REQUEST COMPLETION PROCESSING 
IOCSREQCOM = 1/0 REQUEST COMPLETE 


THIS ROUTINE IS ENTERED WHEN AN I/O OPERATION IS COMPLETED ON A 

DEVICE UNIT. THE FINAL 1/0 STATUS IS STORED IN THE ASSOCIATED 1/0 

PACKET AND THE PACKET IS INSERTED IN THE 1/0 FINISH QUEUE F 

1/0 POST PROCESSING. DEVICE UNIT BUSY IS CLEARED AND AN ATTEMPT 

IS MADE TO START ANOTHER I/O REQUEST ON THE DEVICE UNIT. 

IF THE 1/0 REQUEST COMPLETED WITH AN ERROR, AND THE DEVICE IS 

A DISK, THEN BRANCH TO THE MOUNT VERIFICATION CODE, WHICH WILL 

DETERMINE IF THE SITUATION REQUIRES MOUNT VERIFICATION. 

IF MOUNT VERIFICATION IS IN PROGRESS, NO FURTHER I/O REQUESTS WILL 

BE INITIATED. THIS HAS A SIDE EFFECT OF KEEPING THE 'BSY® BIT IN 
TEVER STATE IT IS CURRENTLY IN. FOR CONVENTIONAL DISK DRIVERS 

THE BSY BIT WILL BE LEFT ON, WHICH WILL BLOCK $QI10 FROM INITIATING 
Y NEW 1/0 ON THE DEVICE. HE DISK CLASS DRIVER, THE BUSY 

BIT WILL BE OFF, WHICH WILL ALLOW $Q10 TO INITIATE NEW I/O. 

INPUTS 


RO = FIRST LONGWORD OF I/O STATUS. 
Ri = SECOND LONGWORD OF 1/0 STATUS. 
R5 = UCB ADDRESS OF DEVICE UNIT. 
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-IF DF CAS_MEASURE_IOT 
2 TSTL L“PMSS$GL_IOPFMPDB sDATA COLLECTION ENABLED? 
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OUTPUTS: 
THE 1/0 PACKET IS INSERTED IN THE I/O POST PROCESSING QUEUE 
AND DEVICE UNIT BUSY IS CLEARED. A SOFTWARE INTERRUPT IS 
REQUESTED TO INITIATE 1/0 POST PROCESSING. 
.ENABL LSB 
IOCSREQCOM: : 31/0 DONE PROCESSING 
1C 64 AS 02 E5 BBCC #UCBSV ERLOGIP UCBS$W_STS(R5),10$ :IF CLR, ERROR LOG NOT IN PROGRESS 
52. 0094 C5 0 MOVL  UCBSL_EMB(RS) ,R2 -GET ADDRESS OF ERROR MESSAGE BUFFER 
2 64 a3 80 4 MOVW  UCBSW7STS(R5) .EMBSW_DV_STS(R2) ; INSERT FINAL DEVICE STATUS 
10 A2. 0080 ¢ 2 5 MOVW UCBSB-ERTCNT(RS),EMBSB-DV_ERTCNT(R2) ;INSERT FINAL ERROR COUNTERS 
2 50 7D 6 ova RO. EMBSQ_DV_10SB{R2) sTNSERT FINAL 1/0 STATUS 
50 sD PUSHL R *SAVE RO 
FESF' 30 8 BSBW  ERLSRELEASEMB TRELEASE ERROR MESSAGE BUFFER 
50 8ED 9 POPL R TRESTORE R 
53 SBAS OD 0 10$: MOVL UCBSL_IRP(RS)R3 [GET ADDRESS OF 1/0 PACKET 
70 a5 «OD 1 INCL UCBSL~OPCNT(RS) S INCREMENT OPERATIONS COMPLETED 
2a 50 € 68 : BLBC RO, DISKCHK SIF 1/0 ERROR, CHECK FOR DISK DEVICE 
6€ 4 : DO NOT SAVE THE 1/0 STATUS IN THE IRP UNTIL IT HAS BEEN DECIDED THAT 
6 5 : MOUNT VERIFICATION IS NOT NECESSARY. THIS IS TO AVOID OVERWRITING THE 
GE ; PHYSICAL DISK ADDRESS STORED IN THE IRP AT OFFSET IRPSL_MEDIA. 
38 As) 550) ss 7D é O$:  MOVQ RO, IRPSL_MEDIA(R3) ;STORE FINAL 1/0 STATUS 
7 
7 
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UBROUT INE 16-SEP-1984 00:21: AX/VMS Macro V04-00 Page 15 
ROCESSING yet OO: eh: 43 YOYS  SRCJLOSUBNPAG_ MAR; 1 ve 
BNEQ DO_PMS sBRANCH IF YES 
.ENDC 

: INSQUE (R3),@L*IOCSGL_PSBL sINSERT PACKET IN POST PROCESS QUEUE 
SOFTINT #1PL$ IOPOST SINITIATE SOFTWARE INTERRUPT 
BBS #ucesd MNTVERIP.- ‘BRANCH IF MOUNT VERIFICATION IN PROGRESS 

UCB$W_STS(R5) WNT VERPNDCHK : (NOTE THIS LEAVES 'BSY’ AS IS) 

: REMQUE aucesc IOQFL(RS) R sREMOVE 1/0 PACKET FROM DEVICE UNIT QUEUE 
BVC LOCSINITIATE SIF VC INITIATE NEXT FUNCTION 
BICw  § #UCBSM_BSY,UCB$W_STS(R5) ;CLEAR UNIT BUSY 

: ;RELEASE ALL CHANNELS 
BRW IOCSRELCHAN : 


IS IS A DISK DEVICE, CALL_THE MOUNT VERIFICATION ROUTINE 
DETERMINE IF MOUNT VERIFICATION IS NECESSARY. IF NOT, CONTROL 
RETURN, AND THE REQUEST WILL BE COMPLETED IN THE NORMAL MANNER, 


CMPB ss #DCC$_DISK,- :1S THIS DEVICE A DISK? 
yCBSB_DEVCLASS(RS) : 

BNEQ 0$ ‘BRANCH IF NOT 

BBCC  #UCBSV NNT VERPND - SCHECK FOR MOUNT VERIFICATION PENDING 
UCBSL_STS(RS), 30$ :IF NOT, JUST ENTER MOUNT VERIFICATION 

BBCC  #UCBS0_MNTVERIP,- [CLEAR IN-PROGRESS BIT BEFORE CALL 
UCB$L_STS(RS), 30$ : $O IT WILL REALLY START 

JSB G“EXESMOUNTVER ‘START MOUNT VERIFICATION 

BRB 20$ [COMPLETE 1/0 REQUEST 


-IF DF CAS_MEASURE_IOT 


: JSB G*PMSSEND_10 s INSERT END OF I/0 TRANSACTION MESSAGE 
BRB PMSEND :REJOIN COMMON CODE 
.ENDC 
RIFICATION-PENDING BIT IS USED TO INDICATE THAT A DISK SHOULD GO 
INTO MOUNT VERIFICATION AS SOON AS THE CURRENT 1/0 IS DONE. THIS IS INTENDED 
CLUSTER TO STALL 1/0 WHEN QUORUM IS LOST. 
#UCBSV_MNTVERPND, - :CHECK FOR MOUNT VERIFICATION PENDING 
UCB$L_STS(R5),RELEASE :IF NOT, JUST CLEAN UP 
cMPB Os #DC$_BISK,- [1S THIS DEVICE A DISK? 
UCB$B_DEVCLASS(RS) : 
BNEQ RELEASE :BRANCH IF NOT 
BBCC #UCBSV_MNTVERIP,- [CLEAR IN-PROGRESS BIT BEFORE CALL 
UCBSL_STS(R ),46$ 
CLRL OR :NO IRP PASSED TO MOUNT VERIFICATION 
JSB G*EXESMOUNTVER [TRY TO START MOUNT VERIFICATION 
BRB NXTIRP [WASN'T NECESSARY 
.DSABL LSB 
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‘ -SBTTL MOUNT VERIFICATION HELPER 

IOCSMNTVER - Assist driver with mount verification. 
This routine is called by EXESMOUNTVER to perform some driver-specific 
actions necessary for mount verification. This routine is used by non- 
CLASS drivers, and is called by default if EXESMOUNTVER finds the address 
of IOCSRETURN in DDTSL_MNTVER. 


Inputs: 


v 
mo 


Re = IRP address or 0 
R = UCB address 


Outputs: 
None. 
; Side effects: 
If R3 contains an IRP address, the IRP will be queued to the 
head of the UCB's IRP work queue. If R3 contains is zero, then 


remove the IRP from the head of the UCB's work queue and attempt 
to initiate the 1/0. 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Se se 


IOCSMNTVER:: spe tupraapec tte mount verification code 
TSTL R3 :Check IRP address 
BEQL NXTIRP sBranch if none 
INSQUE IRPSL_IOQFL(R3),- ;Requeue the IRP 
UCBSL_IOQFL(R5) : 
RSB ;Return 
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ON ON DEVICE REET RBS BR:Ehi39 PONLVSS Sacro uOkeOo «= Page 1, 


-SBTTL INITIATE 1/0 FUNCTION ON DEVICE 
IOCSINITIATE = INITIATE NEXT FUNCTION ON DEVICE 
THIS ROUTINE IS FOLLee TO INITIATE THE a}! FUNCTION ON A 


DEV 
STATUS BITS, SETTING THE OPERATION START TIME IF A DIAGNOSTIC 
SPECIFIED, AND CALLING THE DRIVER AT ITS START 1/0 ENTRY POIN 


m 
—O 
~ 
ou 


ICE BY CLEARING 
gore Is 
INPUTS: 


R3 = ADDRESS OF 1/0 REQUEST PACKET. 
R5 = DEVICE UNIT UCB ADDRESS. 
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+ 


OONWHAMMMMMOOVTVVVVTVVVIVTVVTVTVIVTVT9TVT90 909090970999 ma 


B 
B 
B 
8 
B 
8 
B 
B 
B 
B 
B 
: B 
B 
0 ; OUTPUTS: 
01DB8 CANCEL 1/0, POWERFAIL, AND TIME OUT STATUS BITS ARE CLEARED, THE 
01DB CURRENT SYSTEM TIME I$ FILLED INTO THE INTERNAL DIAGNOSTIC BUFFER 
6 g IF ONE IS SPECIFIED, AND THE DRIVER IS CALLED AT ITS START I/O ENTRY 
OID : 
0 B IOCSINITIATE:: yINITIATE 1/0 FUNCTION 
58 AS) 6553)—CO« 0 2 69 MOVL R3,UCBSL_IRP(RS) ‘SAVE 1/0 PACKET ADDRESS 
0 F 694 IF DF CAS_MEASURE_IOT 
00000000'GF 16 0 E 696 JSB G*PMSSSTART_IO sINSERT START OF 1/0 TRANSACTION MESSAGE 
0 3 698 .ENDC 
78 AS = 2C Ad” 7D 6 5 700 MOVQ _—IRP$L_SVAPTE(R3) ycest aSVAPTECRS) -COPY TRANSFER PARAMETERS 
64 AS 0048 BF AA 0 A 701 BICW  #UCBSM_CANCEL'UCBSM_TIMOUT,UCBS$ Su_stS(RS) : CLEAR CANCEL AND TIME ouT 
0B 2A AS 07”—sé#E&1 9 108 BBC #IRPSV~DIAGBUF , IRP esa. by (RS), 10s CLR, NO DIAGNOSTIC BUFFER 
0 46¢ B83 dO 0 70 MOVL  @IRPSLDIAGBUF(R3),RO  :GET ppRESs OF bIAGNOSTIC BUFFER DATA AREA 
60 00000000'EF 7D O1F9 704 MOVO EXESGQ7SYSTIME, (ROS i OASERT 1/0 OPERATION START TIME 
50 0088 CS DO 0200 705 10$:  #MOVL UCBS$L_BDT(RS),RO [GET ADDRESS OF DRIVER DISPATON TABLE 
00 B80 17 0205 706 JMP SDD TSC. OTARTCROD :START 1/0 OPERATION 
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red Data Pat SEP-19 SYS.SRCJIOSUBNPAG.MAR; 1 
-SBTTL Allocate Buffered Data Path 

ALLOCATE BUFFERED DATA PATH CODE - 

IOCSREQDATAP = Entrypoint (called from traditional drivers) where caller 

wishes to be queued (using UCB fork block) if no buffered data path 

is available at the time of the call. 

E RS => UCB. 


IOCSREQDATAPNW = Entrypoint to call when caller does not want to wait for 
unavailable data path. 


INPUT: 
RS => UCB 


IOCSREQDATAPUDA = Entrypoint (called from UDA port driver) where CDRP 
is used as the source of information about the request and where 
the caller does not want to wait for unavailable datapath. 


INPUT: 


INPUT 


R4 => PDT 
RS => CDRP 


IOCSREQDATAP: : 
BSBB 10 

BLBS RO 

MOVQ R3 
uC 

uc 

A 


oO 
J 
Pd 
~ 
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. 


: be to alloc. and get control after. 
LBS implies allocation success. 


R5) ; Save driver context in UCB fork block. 

; Save caller's return point. 

; Queue fork block to resource wait queue. 
; Assumes IOCSALODATAP saves R1=>ADP. 

; Return to caller or caller's caller. 


10 AS 
0 POPL 
INSQUE 
10$: RSB 


za~ 
—s 
~~ | 
Sete te eee 


UCBSL_CRB(RS) ,RO ; RO=>CRB. 
MOVL  CRBSLTINTD+VECS$L_ADP(RO) .R1 : R1=>ADP (pass to IOCSALODATAP) 
745 MOVAB CRBSLINTD+VECSWIMAPREG(RO).R2 ; R2=>UBMD = 


74 BRB IOCSALODATAP ; NOWAIT, RSB from IOCSALODATAP 
; returns to our caller. 


POTSL ADP(R4) ,R1 ; R1=>ADP (pass to IOCSALODATAP) 
MOVAB CDRPSC_UBARSRCE(RS).R2 ; R2=>UBMD 
Call to allocate a data path. 


BSBB  1OCSALODATAP ; 
; LBS means we got one. 
BLBC = CDRPSW_BOFF (RS), 208 : LBC means, user buffer is on an 


we 
moO 


~“ 
= 


even byte address so we can use 
the Direct Data Path. 


; Here we have a transfer to a user buffer located at an odd byte address. 

; On those processors which support Byte Offset on the Direct Datapath, we 

: = cone tue processing. On other processors, we must wait for a buf tered 
3; datapath. 


64 CPUDISP <<780,10$>,- ; On 11-780 we wait. 
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A 765 <750,20$>,- : On 11-750 we continue. 
4 § <730,20$>,- ; On 11-730 we continue. 
A <790,10$>,- 3 On 11-790 we wait. 
A rt: pA $>,- ; On SCORPIO we wait. 
A 8 < wed $>,- ; On NAUTILUS we wait. 
‘ oy <UV1,30$>> ; On MicroVAX we bugcheck. 
10 AS 3 7D 4 ak 10$ MOVa CDRPSL ft tae ; Save driver context in CDRP fork block. 
Oc AS 8EDO SE ae POPL Paase Pek e FPT(RS) ; Save caller's return point. 
28 82 B6 SC 774 INCW aCORPSC_RWCPTR(RS) ; Increment RWAITCNT. 
6 OE SF 775 INSQUE CDRPSL_FQFL(RS),=- ; Queue fork block to resource wait queue. 
18 BI i £26 ion BADPSL—DPQBL (R15 : Assumes IOCSALODATAP saves R1=>ADP. 
05 8 o ore 7 RSB ; Return to caller or caller's caller. 
0264 780 30$: BUG_CHECK IVBYTEALGN, FATAL 
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; IOCSALODATAP = Common subroutine called by above routines to allocate 


“SEP=19 


a UNIBUS buffered datapath. 
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R1 => ADP wherein the datapath allocation bit map is stored. 
R2 => UBA mapping descriptor in user's data structure. 


; OUTPUTS: 
RO LBS - implies allocation success 


RO LBC = imp 


OCSALODATAP: 
BBS 


MOVL 
RSB 


datapath field in R2 => UBA mapping descriptor is set to the 
number of the datapath allocated. 
agoreer tate bit in datapath allocation bit map is cleared. 


#VECSV_PATHLOCK,=- 


~ eimai EQ 16 


#ADPSC_NUMDATAP, = 
ADPSW_DPBITMAP(R1) ,~ 


208 


RO,- 
#VECSV_DATAPATH, - 
#VECSS"DATAPATH. 


UBMD$B-DATAPATH(R2) 


es allocation failure. 


+ ¢ ; If this user has a permanently allocated 
UBMD$B_DATAPATH(R2) ,10$ ; 


datapath, branch around to success. 


Find first available datapath, 


according to bit map. Note failure 
leaves RO with the value ‘16'', an 
even number with the low bit clear. 


EQL implies failure. 
Upon success, RO has number of the 


available datapath to allocate. 
So we update the user's datapath 
descriptor pointed at by R2. 


BBSC RO, ADP$W_DPBITMAP(R1),10$; And we update the bit map. 
BUG_CHECK [NCONSTATE : W 


S“#SS$_NORMAL ,RO 


e shouldn't be here obviously. 


Indicate allocation success. 


; And we return to our caller. 
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-SBTTL Release Buffered Data Path 
; RELEASE BUFFERED DATA PATH CODE - 
IOCSRELDATAPUDA = Entry point called from UDA port driver in response 
e 


© an UNMAP call. Here the data as to the buffered data path 
s in the CDRP. 


6 
] 
4; | 
2 3 
: 3 INPUTS: 
8 3 R4 => PDT 
6 ; RS => CDRP 
6 1 ; IOCSRELDATAP = Entry point called from traditional drivers to release 
0 : § 3 the buffered datapath described in CRBSL_INTD+VEC$B_DATAPATH. 
§ 4 ; INPUTS: 
o S $3 RS => UCB 
8 8 = 3 OUTPUTS: 
028 838 ; Datapath re-allocated (if any waiters). RO, R1, and R2 modified. 
028 39 ; NOTE: Since calls to IOCSREQDATAPUDA are NOWAIT, fork blocks dequeued 
028 40 ; here from ADPS$L_DPQFL are guaranteed to be UCB's. 
0588 Bao 
028 bcs IOCSRELDATAPUDA: : 
51 on? C4 DO 028 44 MOVL PDTSL_ADP(R4) ,R1 3; R1 => ADP. 
52 C AS 9E O028D 845 MOVAB CORPSE UBARSRCE (RS) ,R2 ; R2 => UBMD. 
oc 11. 0291 aee BRB RELDATAP_COMMON 
0 3 z IOCSRELDATAP:: 
50 ¢ AS D0 029 48 MOVL UCBSL_CRB(R5) ,RO ; RO => CRB. 
52. 34 AO) «(9E «(0297 «= B49 MOVAB CRBSL-INTD+VECS$W_MAPREG(RO),R2 ; R2 => UBMD. 
51 38 AO DO 0298 50 MOVL CRBSL_INTD+VECS$L_ADP(RO) ,R1 3; R1 => ADP. 
029F 51 RELDATAP_COMMON: 
50 03 A2 4 8 oF 26 CVTBL UBMDS$SB_DATAPATH(R2) ,RO ; Get datapath designator. 
3%60—~C«<Y2W A 85 BLEQ 10$ : If LSS permanent assignment. 
O2A 854 : If EQL we had NO datapath to 
02A 855 : release. 
00 FO O2A 2$ INSV #0,- :; Zero datapath number. 
05 00 A 5 #VECSV_DATAPATH, AVECSS_DATAPATH, - 
03 A2 Ag 58 UBMD$B_DATAPATH(R2) 
9 EF AB 59 EXTZV #VECSV_DATAPATH,- ; Extract datapath number. 
ae 5 O2AD 60 #VECS$S_DATAPATH,RO,R2~ =; 
5 14 B61 OF BO 61 REMQUE @ADPSL-DPOFL(R1S ,RO ; RO => next driver fork block 
26 «(1D #4 $¢ BVS 208 : If VS no driver process waiting 
7E 23 7D Be 64 mMOVQ + al ; Save R3, R4, RS 
OD B 65 PUSHL R 
55 50 00 BB 06 MOVL RO,RS ; RS => driver fork block. 
12 91 6 6 CMPB #DYNSC_UCB,- ; See if we dequeuved a UCB or a CDRP. 
OA A C 68 yCpsB_TYPE(RS) 
22. «12 5 $3 BNEQ : NEQ implies a CDRP. 
; Here we have = . 
6 4 H h R5 => UCB 
51 24 a5 00 ce 7s MOVL UCBSL_CRB(R5),R1 ; R1 => CRB. 
52 F0 cf 75 INSV R2,- ; Store assigned datapath # | 
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in CRB. 


Restore driver context. 
Call back waiting driver. 


Restore deallocator'’s R5,R4,R3 
Return to deallocator. 


UBROUTINES 16-SEP-1984 00:21: 
~$Eb=13he O9:ehi27 f 

#VECSV_ DATAPATH, « ; 
avets DATAP 
CRBSL INID*VECSS. DATAPATH(R1) 

mova ucBst FR3(R5)R3 : 

JSB aUCBSC_FPC(RSS ; 

POPL R5 é 

mMOVQ (SP)+,R3 3 

RSB ; 

BBCS ~—_—R2, = 


ADPSW_DPBITMAP(R1), 10S 
bus. CHECK INCONS STATE 


; Here we have R5 => CDRP. 


Set datapath bit and exit 
Inconsistent state. 


; Store assi ~ +t datapath # 


Pane ff, 


Pooume yoretng thread and any backed 


INSV 
Ree csy _DATAPATH, = : in CDRP f 
#VEC$S~DATAPATH.- 
CDRPSL—~UBARSRCE+UBMD$B_DATAPATH(RS) 

JSB SCSSRESUMEWAITR ; 

BRB 5$ : 


thread. 


up Oe 
; Branch back to resume deallocator's 
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NIBUS MAP REGISTER 


: If here, low bit of RO tells us whether 
attempt. 


PY t 
BLBS RO.10 : 
MOVQ to RPSL FR3(R5) ; 
INCW  @CORPSL_ROCPTR(RS) : 
POPL  §CDRPSL_FPC(RS) : 
INSQUE CDRPSL-FQFL(RS),- 
@ADPSL “MROBL (R25 


_ 
Oo 
wr 


RSB H 


TED AT_THIS TIME 


IN THE UBA MAP REGISTER ALLOCATION DATA 

> INPUTS: 

; R4 = ADDRESS OF PORT DESCRIPT 

: RS = ADDRESS OF CLASS DR 

OUTPUTS: 

IF MAP REGISTERS ARE ALLOCATED FO 

; IN THE CDRP ARE MODIFIED TO INDIC 

: OF REGISTERS THAT HAVE BEEN ALLOC 

; STRUCTURE IN THE ADP IS MODIFIED. 

IF MAP REGISTERS CANNOT BE ALLOCA 

: QUEUED ONTO THE RESOURCE WAIT LIST 

; INCREMENTED. 

IOCSREQMAPUDA: : : 
BSBB __ IOCSALOMAPUDA : 
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‘+ «~SBTTL REQUEST AND ALLOCATE UNIBUS MAP REGISTERS FOR CLASS DRIVER 
; 1OCSREQMAPUDA ~ REQUEST AND ALLOCATE UNIBUS MAP REGISTERS FOR CLASS DRIVER 
; THIS ROUTINE IS CALLED TO ALLOCATE UBA MAP REGISTERS AND TO MARK THE ALLOCATION 


STRUCTURES. 


TABLE. 
IVER REQUEST PACKET (CDRP). 


R THE CDRP, THE APPROPRIATE FIELDS 
ATE WHICH REGIST AND TH ER 
ATED. ALSO THE Meech tion DATA 


THE CDRP IS 
AND THE UCBSW_RWAITCNT IS 


Allocate UBA map registers for class drive 
Call to allocate map registers if availabl 
Returns R2 => ADP. 


we were successful in the allocation 


Branch around if eppnae te 

Save driver process conte 

One more CDRP, on this uce. awaiting 
resources. 

Save map register wait return address 


:; Insert process in map register wait queue 
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IOCSREQMAPREG:: 
BSBB 
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IOCSREQMAPREG = REQUEST UNIBUS MAP REGISTERS 


THIS ROUTINE IS CALLED TO REQUEST UNIBUS MAP REGISTERS TO PERFORM AN 
1/0 TRANSFER. 


INPUTS: 


OUTPUTS: 


RS = UCB ADDRESS OF DEVICE UNIT. 
O4(SP) = RETURN ADDRESS OF CALLER'S CALLER. 
IT IS ASSUMED THAT THE CALLER OWNS THE I/O CHANNEL ON WHICH THE 
TRANSFER IS TO OCCUR ON. 
IF MAP REGISTERS HAVE BEEN PERMANENTLY ASSIGNED TO THE ASSOCIATED 
1/0 CHANNEL, THEN CONTROL IS IMMEDIATELY RETURNED TO THE CALLER. 
ELSE AN ATTEMPT IS MADE TO ALLOCATE THE REQUESTED NUMBER OF MAP REG- 
ISTERS. IF SUFFICIENT CONTIGUOUS MAP REGISTERS ARE FOUND, THEN THEY 
ARE ASSIGNED TO THE ASSOCIATED 1/0 CHANNEL AND CONTROL I$ RETURNED 
TO THE CALLER. ELSE THE DRIVER PROCESS CONTEXT IS SAVED IN ITS FORK 
BLOCK, THE FORK BLOCK IS INSERTED IN THE MAP REGISTER WAIT QUEUE, 
AND A RETURN TO THE DRIVER PROCESS’ CALLER IS EXECUTED. 
;REQUEST UNIBUS MAP REGISTERS 
1OCSALOUBAMAP : ALLOCATE UBA MAP REGISTER 
BLBS RO. 108 :1F LBS SUCCESSFUL ALLOCATION 
MOVQ R3,UCBSL_FR3(R5) :SAVE DRIVER PROCESS CONTEXT 
PL  —- UCBSL_FPC(R5) “SAVE MAP REGISTER WAIT RETUR 
INSQUE UCBSL-FQFL(R5) ,@ADPSL_MROBL(R2) ; INSERT PROCESS IN MA 


gpoutines "  1g-SER19RE 00:21:15 YARNS Macro vO4=00 Page 2. 


N ADDRESS 
P REGISTER WAIT 


——— $$, 


K 4 
US MAP REGISTERS > = 'S-SEp-198e OS:aS:27 ESvgvsachiosuaNPacenan:1 29° «99, 


~SBTTL ALLOCATE UNIBUS MAP REGISTERS 
SALOUBAMAP = ALLOCATE UBA MAP REGISTERS a DATAGASS 


; 10C€ $ 
; IOCSALOUBAMAPN = ALLOCATE UBA MAP REGISTERS (ARGUMENT SPEC 
; IOCSALOMAPUDA = ALLOCATE UBA MAP REGISTERS (FOR CLASS DRIV 


1OSUBNPAG = NONP 
vOe-000 ALLOC 


=—Pp 


PECIFIED) 
IFIED: 
ER(S) 
; This i - called to allocate uba map registers and to mark the allocation 
$ in one register allocation structure sgcates in she ADP. The state 
of the UNIBUS map registers is maintained in a set of descriptors 
that cover tee contiguous extents of allocatable ; oPe free) map 
registers. A map register descriptor consists o 
Fer resgeeetans elements of two distinct arra 

€ 


word ite 
located int 


3 coe 

: ADP. These arrays. ADPSW dle te and vate TARE REGARY, 

; contain the number of map registers and fhe first map register in each 

: contiguous extent of free map registers. These ocre Ss are each 

3 preceeded by a one word field ee ot all 1*s (+1) so that compares 

: made against the ‘‘previous’’ descriptor fail hen the current desciptor 
Of 3 is the one whose index is zero. 

: ADPSL_MRACTMDRS maintains the number of active descriptors, i.e. the 

3 number of elements of each array which contain valid data. 


; INPUTS: — sere eee AND ALOUBAMA 

R3 = NUMBER OF MAP REGISTERS TO ALLOCATE (IOCSALOUBAMAPN only). 
RS = DEVICE ONIT aft ADDRESS. 
; INPUT: (FOR IOCSALOMAPUDA) 

R4 => PDT 


R5 => CDRP 


; ¢ OUTPUTS: 
RO = SUCCESS INDICATION. 
R2 => ADP 


lsb 


-enabl 
IOCSALOMAPUDA: 

MOVQ R3,-(SP) ; Save R3,R4,R5 
PUSHL R5 3 


MOVL PDTSL_ADP(R4) ,R2 ; R2 => ADP before we modify R4. 
; Get byte offset in page 


MOVL CORPSL_BCNT(RS) ,R3 : 

MOVZWL CORPSW- ROPE {RD “Ro 3 

MOVAB § ; Calculate highest relative byte and round 
: Calculate number of map registers required 


*XSFFCR 

ASHL #-9,R3, 

MOVAB CODRPS$L =UBARSACE (RS). R1 ; RY => UBMD. 

BRB COMMON” ALOUBAMA ; Branch to common code. 

IOCSALOUBAMAPN: : pM LOCATE UBA MAP REGISTERS ARGUMENT SPECIFI 
MOva R4,R5 


Save RS, 
PUSHL 
BRB 


IOCSALOUBAMAP: : sm LOCATt UBA MAP REGISTERS CRB SPECIFIED 
tl B3.=t8P) ; Save R5,R4,R5 


7 #53 «67D 
55 DD 


52 0060 C4 D0 


3 OSFF 344 
53 58 ‘5 8F 


WWIAANIA AAAI AAI AAW AAI AIA AIA WII 


eee er ee 
H.AAA ANI PONIPONONND 
OMI — FHM MN MH CCOWD OVIMOom 


rs 


; Get transfer byte count 
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AWWA AIWAIAIGTFONINPINONGNPNINININY 


* 3 bb 
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1OSUBNPAG = NONPAGED 1/0 RELATED SUBROUTINES 1 AX/VMS v04- P 
Voee000 ALLOCATE UNIBUS MAP REGISTERS Breer bbe bSiesion FeNCvas te sr age 98, 
4A 1037 
3 7E a C 4A 1 aH MOVZWL UCBSW_BCNT(RS),R3 ;GET TRANSFER BYTE C€ 
4 7C_A C 4 1 MOVZWL UCBSW ay )»,R4 3GET BYTE OFFSET IN PA 
35 tad £386 ; 1040 MOVA < A 4's )CR4],R3 ; CALCULATE ON GHES “aELATIVE E BYTE AND ROUND 
5 5 F7 8F 7 5 ! rf S$: ASHL #-9,R3,R3 CALCU LATE NUMBER 0 REGISTERS REQUIRED 
1 246a5 D . 1 rk : MOVL  UCBSL_CRB(RS),R1 : R1 => CRB. 
2 38 a1 D 61 1044 MOVL  CRBSL-INTD+VECSL_ADP(R1) ,R2 ; R2 => ADP. 
1 4 Al 9 65 1045 MOVAB cape INTBOVECSUCRAPREGCAT) 1 ; R1 => UBMD. 
ao 69 1 rt BBS #VECSU_MAPLOCK,- ; If SET, already permanently 
38 61 re : r UBMD$W “RAPREGCAT) , 40S : allocated, so branch around. 
6D 1 #8 3; Here: 
re } 39 : 7 => = - caller's structure where we record registers allocated 
0 res ! 26 ; Rg aoe of map registers to allocate 
6D 1054 ° 
6D 1055 COMMON_ALOUBAMAP: 
5C a ds 0 9p 1928 TSTL ADPSL_MRACTMDRS(R2) ; Test for zero active descriptors. 
1 13 8 3 133 BEQL 15$ : EQL implies no registers available. 
$3 33 gé bare ! 38 aNel a a3 : — up request to next multiple 
55 4 8 a 1966 108: CLRL RS- : Establish loop variable. 
64 A245 53 B81 0379 1308 : CMPW R3,ADP$W_MRNREGARY (R2) CRS] ; See if enough regs described here. 
09 «15 O37 1063 BLEQ 208 : LEQ implies YES. 

F455 SC A2 F2 8 &3 1392 156 AOBLSS ADPSL_MRACTMDRS(R2),R5,10$ ; Else branch back and continue 
50 0d4 Q 5 1903 ; CLRL RO : If here, allocation failure. 
wx. S Hi 1908 208 BRB 50$ ; Branch around to return. 

61 O15E C245 B0 5 89 1070 . MOVW ADPSW Pac nesany (Re) CR5I. - ; Allocate from low end of extent 
StH 1071 upnosa rece 3; by copying Ist map reg. #. 
02 Al 33 90 ; ea ie MOVB RS. ADPS SBN REGKR :; Set # of map regs allocated. 
64 A245 5 A2 0393 107 SUBW ADP$W BARNREGARY(R2) CRSJ : Subtract out # regs allocated. 
05 12 0398 ore BNEQ ; NEQ implies extent not empty. 
9A 1075 : _ branch around deallocate. 
0129 30 9A 1976 BSBW PEALLOC DESCRIP ; Call to deallocate descriptor. 
06 = «171 m0 : 308 BRB 40$ ; And branch back to return. 
O15E C245 53 AO 9F 1 i ; ADDW R3, ADP$W_MRFREGARY(R2)CR5) 3 ryt descriptor past 
Ae 1 9 5 ol ecated registers. 
50 9) DO AS 1 40$: MOVL S“#SS$_NORMAL ,RO ; Indicate succes 
5 BEDO A&B 1 § 50$: POPL RS : Restore R5,R4,R3_ 
53 BE 43 0 nj : ? nea (SP)+,R3 3 
SAF 1988 -dsabl lsb 
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Allocate a speci 


; OUTPUTS: 
R 


OCSALOUBAMAPSP: : 
MOVQ 


ouMl wovm>r FPP VN 
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_- wi uM 
wv Sw 


Ps 
o 
a aaa ak a a ak tk a et od =  — — . — —  — s 


SOOOOOOOOOOOOOOSOCOOCOOOCOOSSCOOOOOOCOCCOOOCOOSOOOCOOOOOOoOOO 
a kd dd dd dd dd dd 8 I 3 td IOOOOO 


AAA. AAA AAAI AA AA AAI AAAI AAI IAI AI AIA 


RWW HMMMMMOCOOCVIVTVSTVTITIVITIIVIIIA WHAAAAOAO 


4 
1 


“SEP=-1984 00:21: AX/VMS Macro V04-00 Pa 7 10 
c¢ set of UNIBUS Map Re gree 19 4 88:23:33 UeYS. SRCITOSUBNPAG MAR: 1 - 38) 0 
-SBTTL Allocate a specific set of UNIBUS Map Registers 
IOCSALOUBAMAPSP 
This routine is called to allocate a specific set of UNIBUS Map Registers. 
INPUTS: 
R3 = # of map registers to allocate 
R4 = # of first map register to allocate 
RS => UCB 


0 = Success or failure indication 


Note RO, R1 and R2 modified. 


EQL means they are at the beginning 


R3,-(SP) 3; Save R3,R4,R5 
PUSHL R5 ; 
MOVL UCBSL_CRB(RS) ,RO ; RO => CRB. 
MOVL CRBSL-INTD+VECSL_ADP(RO) ,R2 ; R2 => ADP. 
MOVAB CRBSL—~INTD+VECSW-MAPREG(RO) .R1 ; R1 => UBA mapping descriptor. 
TSTL ADPSL_MRACTMDRS(R2) ; Test for zero active descriptors. 
BEQL 30$ ; EQL implies no registers available. 
BLBC R4,10$ ; Prepare to round DOWN to even boundary. 
BICB #1,R4 ; Clear low bit if set and 
INCL ; then increment # of registers to allocate 
INCL R3 ; Prepare to round UP to even # of registers 
BICB #1,R3 : 
CLRL R5 : RS will be index register. 
CMPW R4,ADPSW_MRFREGARY(R2)CR5] ; Are registers we want in 
; current extent? 

BLSS 30$ ; LSS means current extent is beyond the 

; desired registers. Therefore they are 

; _not availiable and we have failed. 
BEQL 50$ : 


of the 


extent or else beyond the current extent. 


ADDW3 ADPSU _MREREGARY (RZ) ER3).5 : 

ADPS$W_MRNREGARY (R2)CR5),R0 3 
CMP R4,RO 3 
BLSS 408 : 
AOBLSS ADPSL_MRACTMDRS(R2),R5,20$ ; 
CLRL RO 3 
BRB 80$ : 


current extent. 


; Here the registers we want are either within the middle of the current 


RO = Ist register beyond 
current extent. 

Are we in current extent? 

LSS means Hig in current. 

Loop thru all extents. 

Failure if we fall thru. 
Set failure code. 


; And branch to return. 


the first register of 


1OSUBNPAG 
v04-000 


5 4 

3 3 

F4 

61 54 

02 Al 53 
64 A245 = =50 
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20 
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50$: 


current extent (defined by R5 = —_ ond is less than or equal to 
the last register of the extent. RO contains the # of the register just 
beyond the current extent. In other words, 


ADPSW_MRFREGARY(R2)CR5J < R4 < RO 


SUBW R4,R ; RO = Length of subextent based at R4. 

CMPW RO,R ; Compare to # of registers needed. 

BLSS 30$ ; LSS means failure. 

MOVW R4,UBMD$W_MAPREG(R1) ; Success. Fill in user's descriptor 

MOVB R3,UBMD$B_NUMREG(R1) ; with base register and # of registers. 

SUBW3 pr ergs bbls ff bt »R4,- ; Distance from beginning of 
ADPS$W_MRNREGARY (R2)LR5 ; _extent to R4 is new Length. 

SUBW RO, ADP$W_MRNREGARY (R2)CR5) ; Equivalent result. 


SUBW R3,R0 0 = # regs. left in sub-extent. 

BEQL 70$ L means we do not have to allocate 
nd fill a new extent descriptor. 

INCL 5 = index of new extent descriptor. 


Q 
a 
RO,-(SP) ave length of new extent. 
BSBW ALLOC_DESCRIP all to allocate a new descriptor. 
ADDW3 = R4,R3,ADP$W_MRFREGARY(R 5 
mov (SB) +, ADPSW_MRNREGARY (R 5 


sR 
3 € 
: R 
3% 
3 ¢ 
ER } ; Fill in new descriptor with 
CR 


; _1st register and # registers. 
; Branch around to success. 


; Here the first register we want is equal to the first register of the current 


60$: 


70$: 
80$: 


extent (defined by index register R5). In other words, 
R4 = ADPSW_MRFREGARY(R2)CR5) 


CMPW R3 ,ADPS$W_MRNREGARY (R2)CR5] ; See if we have enough registers. 
BGTR 30$ ; GTR implies failure. 


MOVW R4,UBMD$SW_MAPREG(R1) : Success. Fill in user's descriptor 
MOVW R3,UBMD$B_NUMREG(R1) ; with Ist register and # allocated. 


ADP$W_MRNREGARY (R2)(R5) 


SUBW R3 : Update current descriptor. 
BEQL 60$ ; EQL means current extent now 
3; empty. Go to deallocate. 
ADDW Be ADPSW_MRFREGARY(R2)CR5J : If not empty, update Ist register. 
BRB 70$ 3; Branch around deallocate. 


BSBW DEALLOC DESCRIP ; Deallocate system descriptor. 
S*#SS$_RORMAL ,RO ; Set success indicator. 

POPL R5 ; Restore R5,R4,R3 

mova (SP)+,R3 3 

RSB ; And return to caller. 
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-SBTTL Permanently Allocate UNIBUS Map Registers 


IOCSALOUBAMAPRM = Permanently Allocate UBA Map Registers (CRB Database Specified) 
IOCSALOUBAMAPRMN = Permanently Allocate UBA Map Registers (Argument Specified) 
This routine is called to permanently allocate UNIBUS map registers. 

Here we allocate the map registers from the highest numbered 

available registers. 


INPUTS: 
Re = # Registers to allocate (IOCSALOUBAMAPRMN only) 
RS => UCB 


OUTPUTS: 
RO = Success indication 


Bete Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge 


<-_ 
rn 


SSID DAD TTT BB BB EPP PPP PPP PLP EEE 


20$: 
50 62 A245 015€ C245 Al 


50 53 A2 
61 50 860 


ADDW3 ADP$W sed} syste Ph 14 br a ; Calculate register # beyond 


ADPSW“RRNREGARY : last extent, 
R3,RO0 ; We allocate from i - end. RO 
s © alloc. 


allocated. 


a eh 
MR OODNOUES WN OOONOAU EWN 0 OD NOU EWN 0 OODNOA NEW OO OONOUES WR OOONO — 


POPOPOPIPOPSPOPONIMOPUPIPPUPOPIPOPOPUPOPUPIPOPIPIPOPIPINNINONOPOPIPIPOPUNIPONOPOPOPOPOPOPOPONOPORUNONONR | 


DIE BB BEBE EE WWIII IAP DIPNI NINN) 2 SS SS BQO OOOO OOOO 


44E 
44E 
44E 
44E 
44E 
44E 
44E 
44E 
44E 
44E 
44E 
44E 
44E 
44E 
044E 
oe i 
44E 
oe E 
44E -enabl LSB 
044E IOCSALOUBMAPRMN: : jg reg UBA MAP REGISTERS ARGUMENT SPECIFI 
7E 7s: Be E MOVQ R3,-(SP) 3 Save R3,R4,R5 
55 DD r 1 PUSHL R5 ; 
18 #11 8 : BRB 5$ 3 
0455 IOCSALOUBMAPRM: : get UBA MAP REGISTERS CRB SPECIFIED 
7E 53 7D 0455 MOVa R3,-(SP) ; Save R3,R4,R5 
55 OD Be ° PUSHL R5 3 
53 7E AS C O45A MOVZWL UCBSW_BCNT(RS) ,R3 ;GET TRANSFER BYTE COUNT 
54 7C_AS C 04 MOVZWL ycesy BOFF(R5),R4 ;GET BYTE OFFSET IN PAGE 
= OSFF C344 9 be MOVAB “x FFTR3)CR4I,R3 ;CALCULATE HIGHEST RELATIVE BYTE AND ROUND 
5 53 F7 8F 7 : ; $$ ASHL #-9,R3,R3 ;CALCULATE NUMBER OF MAP REGISTERS REQUIRED 
51 4 AS 00 8 vy) MOVL UCBSL_CRB(RS5S) ,R1 ; R1 => CRB 
52 38 Al «00471 MOVL  CRBSL-INTD+VECSL_ADP(R1).R2 + R2 => ADP 
51 34 a1 SE 0475 MOVAB CRBSL-INTD+VECSW-MAPREG(R1),R1 : R1 => UBMD. 
OF € 479 $s #VECSU_MAPLOCK,- 3; If SET, already permanently 
38 61 peee UBMD$W~MAPREG(R1) , 30$ ; allocated, so branch around. 
53 6 be9p INCL ; Round up request to next multiple 
3.6 COO 8A 047F BICB #1,R3 : 2 ‘ 
55 5C A2 9 482 MOVL § ADPSL_MRACTMDRS(R2).R5 : R5 = index beyond Last MRD. 
OA ? : 108 BEQL 15$ ; EQL implies no registers available. 
62 A245 53 B11 04 CMPW 8 ADP$W_MRNREGARY-2(R2)CR5] ; See if enough regs described here. 
07 «(15 4 D BLEQ 6-20 : LEQ implies YES. 
F6 55 —sF SS ? F 158 SOBGTR R5,10$ ; Else branch back and continue 
5 D4 438 CLRL Re : If here, allocation failure. 
2 11 r+] BRB 40$ ; Branch around to return. 
4 
4 


eee 
>Prooo 
a eal @ 4 


contains Ist reg. 
er 


MOVW RO, UBMD$W_MAPREG(R1) ; Record Ist regis 


eM ay 
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61. 8000 BF A 4AS 1253 B1SW #VECSM_MAPLOCK,,UBMD$W_MAPREG(R1); and mark it permanent. 
02_Al ; 90 QO4AA 1254 MOVB $R3,UBMD$B_NUMREG(R1) : Set # of map regs allocated. 
62 A245 A 4AE 1255 SUBW R3,ADP$W_ARNREGARY=2(R2)(R5) ; Subtract out # regs allocated. 
OA 1 4835 1 $ BEQL 50$ ; EQL implies descriptor not 
re ! 30$ ; valid; branch to deallocate. 
50 01 DO 0485 1 : MOVL S*#SS$_NORMAL ,RO ; Indicate success. 
488 1260 40$: 
55 BEDO 0488 1261 POPL RS ; Restore R5,R4,R3 
53 E 7 488 1 $6 MOvVa (SP)+,R3 ; 
0 4BE 126 RSB 
4BF 1 ee 50$: 
55 7 4BF 1265 DECL RS ; RS = index of descriptor to dealloc. 
0002 0 Q04C1 1 96 BSBW acta Call to deallocate descriptor. 
EF 11 04C4 126 BRB $ And branch back to return. 
0406 1268 -dsabl (sb 
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+ 
DEALLOC_DESCRIP = Common internal subroutine called to deallocate 
a UBA Map Register descriptor. 


; INPUTS: 

; Re => ADP 

: R5 = index of descriptor to deallocate. 

3; OUTPUTS: 

: The UBA Map Allocation structures are updated by contracting 
D 


Coner ptors over the deallocated one. 
Register RS is modified. 


oOCoCO 
PRR RR RR PRR RRR RRP RRR E 


OOONAOU EW O OONOU ST" Oo 
t 


OWOWODODOOOOO VS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 EALLOC_DESCRIP: 
5C A207 : 108 DECL ADPSL_MRACTMDRS(R2) ; Decrement # active descriptors. 
64 A245 66 A245 B0 1 "  MOVW «= ADPSW_MRNREGARY+2(R dER5I,~ ; Move data towards lower index 
1 ADPSW_MRNREGARY(R2)LR5) 3; to fill up hole. 
O15E C245 0160 C245 B80 0 : MOVW ot Raid} bbe bh Sl : 
FEB 55 SC A2 F2 04 1 AOBLSS ADPSL_MRACTMDRS(R2),R5,10$ ; Loop thru rest of active MDRS. 
05 QO4DE 1291 RSB 
rae 
O4DF 1294 ; ALLOC_DESCRIP - Common internal subroutine to allocate a UBA map register 
or48 : 2 3 descriptor in the middle of the range of descriptors. 
2 a 
O4DF 1 39 : Re = index of where we must allocate descriptor 
O4DF 1300 ; OUTPUTS: 
O4DF 1301 ; Allocation is accomplished by creating a hole in each of the arrays 
O4DF 1 86 3 y moving descriptor items to the next higher element. 
O4DF 1303; Note RO is modified. 
Rage 
40F 1 06 ALLOC_DESCRIP: 
50 5C A2 00 rt 4 ! b8 108 MOVL ADPSL_MRACTMDRS(R2) ,RO ; RO = # active descriptors. 
> 2. 43 1309 ; CMPL RO,RS ; Have we finished? 
1315 4eb 1310 BLEQ og : LEQ implies YES. 
64 A240 62 A240 BO O4E8 1311 MOVW prt sept} paling Fh 34 lo ; Starting from ends of arrays, 
ti : \¢ ADP$W_MRNREGARY (R2) CROJ ; copy # register items. 
O15E C240 015C C240 B80 rt} : 1 MOVW pre oral bret thy 1S elle $ 
€8 50 =F5 rtf 1 1g SOBGTR RO,108 + And Loop back until we reach 
4FB 131 ; _the hole we have created. 
5C A2 3 rth : 8 20$: juct ADPS$L_MRACTMDRS (R2) : Increment # active descriptors. 


; Return to caller 
| 
| 
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-SBTTL Release UNIBUS Map Registers 


OCSRELMAPUDA = RELEASE UNIBUS MAP REGISTERS (CALLED FROM UDA PORT DRIVER) 
OCSRELMAPREG = RELEASE UNIBUS MAP REGISTERS 

hi 
ss 


& & 


I 
I 
T ; routine is called to release UNIBUS map registers that were previously 
assigned for an 1/0 transfer. 


INPUTS: 
(For IOCSRELMAPUDA only) 


R4 => PDT 
RS => CDRP 


(For IOCSRELMAPREG call only) 
RS = UCB ADDRESS OF DEVICE UNIT. 


It is assumed that the caller still owns the 1/0 channel on which 
the transfer took place. 


OUTPUTS: 


If the mapping registers have been permanent te assigned to the asso- 
ciated 1/0 channel (only possible for IOCSRELMAPREG), then control 

is immediately returned to the caller. Else the mapping registers are 
released (via a call to IOCSDALOCUBAMAP) and we then go into a loop 
rengy ing waiting driver processes from the Map Register Wait Queue 
until either the Queue is completely drained or we run out of map 
registers to satisfy the needs of a ptyen waiting driver process. 
Driver processes waiting here have their context stored in either 

a UCB fork block or a CDRP fork block and the processing nares to 
resume each of these types of driver process is slightly different. 
What is done for each is to allocate the required map registers 

(via a call to IOCSALOUBAMPA for UCB threads and via a call to 
IOCSALOUBAMAP for CDRP threads) and to resume the waiting driver 
process. Resuming a UCB thread is done by fostering Fe ster 


PUPP PVP PISS Be Be BS BS Be BB BB BPP PPP PP PPP PPP PPP PPP PPP PPP EES 


i 100 FF no on oo 
SSN NNN DAA DA AAA AAO IIIT BS BS EE EAI IIIonononononononond 


LT BD BW BD BS BI 8 8 Fn ee rn rn rn rn re rn re oo 
Oe ek a ek a = — > 2 bs as as — 2 as 2 = a a 2 a a a tt te 
WAAWAWIA. A.A NAAN A AANIAI AAAI WIN AI AAAI AIA AAAI NAIA AAAI AAAI AAAI 
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context and fa to the saved PC. Resuming a CDRP thread is 
accomplished by calling SCSSRESUMEWAITR. 
eenabl sb 
IOCSRELMAPUDA: : 
7E s PtP mMOVa R3,-(SP) ; Save R3-R6 
oe oe MOVQ R5,-(SP) : 
52 0O0E0 gs dO MOVL POTSL_ADP(R4) ,R2 3 R2 => ADP. 
56 2 00 MOVL R2,R6 3; R6 => ADP also. 
53 3C aS E MOVAB CDRPSL_UBARSRCE(RS),R3 ; R3 => UBMD. 
54 63 C MOVZWL UBD SW “MAPREG(R3) . Rd ; R4 has Ist mapreg #. 
53 O2A A MOVZBL UBMDSB_NUMREG(RS) ,R3 ; R3 has # of mapregs. 
1E 11 BRB 108 ; Branch to common code. 
IOCSRELMAPREG: : ; Release unibus map registers 
51 24 AS 4 MOVL pcos CRB(RS) ,R1 ; R1 => CRB. 
2 BBS #VECS0_MAPLOCK,= - if set. permanent allocation so branch. 
3D 34 Al CRBSL_INTD+VEC$w_MAPREG(R1) ,50$ 


ef 
LoSUpNP AG = NONPAGED 1/0 RELATED SUBROUTINES 1 ~$E0= 1386 90: 2: 3 AX/VMS Macro V04-00 Page 33 
v04-000 Release UNIBUS Map Registers “SEP-1984 SYS. SRCJI OSUBNPAG. MAR; 1 (21) 
7E 7D 3 137 MOVQ R3,-(SP) : Save R3-R6 
fe OF hi MOVa -R5.=(SP) bee: 
52. 38 Al 4 1381 MOVL cnest INTD+VECSL_ADP(R1),R2 yi ontee br OF ADP 
56 ¢ D1 § nove R2,R AV DRESS ADP 
23 4A C 0 1 MOVZWL CRBSL_ INTD+VECSW _MAPREG(RID. Re” OoeT STARTING MAP REGISTER NUMBER 
3 6 Al A 0534 ! ¢ 108 MOVZBL cRBSt INTD+VEC$B_NUMREG(R1), *R3 GET NUMBER OF REGISTERS TO DEALLOC 
0038 30 : : § on BSBW IOCSDALOCUBAMAP ; Free up UBA map resources. 
55 30 +3 OF 538 (1 8 ’ REMQUE @ADPSL_MROQFL(R6) RS ;GET ADDRESS OF NEXT DRIVER FORK BLOCK 
1 1D e7f ! 8 BVS 40$ ;1F VS NO DRIVER PROCESS WAITING 
\9 91 0541 1391 CMPB YNSC_UCB,- ; See if we dequeved a UCB or a CDRP. 
OA A 543 1 3¢ UCase TYPE (RS) 
1A 12 O34 : 3 BNEQ REALLOC_CD_MAPREGS ; NEQ implies a CDRP. 
FOFB 30 547 1395 BSBW katate 41 ey ty MAP artiaree BITMAP AND ALLOCATE 
09 50 9 Q54A 1 38 BLBC 31F Lee ALLOCATION FAILURE 
53 10 AS D 0540 139 MOVQ te eg FR3(R5),R3 TREST ORE DRIVE PROCESS CONTEXT 
oc 82 \¢ bee, : a8 Js8 aucesC_ FPC(RSS ;CALL DRIVER AT MAP REGISTER WAIT RETURN ADD 
30 A665 OE 0556 1400 30$: INSQUE UCBSL_FQFL(RS) ,ADPSL ROFL (RO) ;REINSERT DRIVER PROCESS AT FRONT OF 
55 B8E& 7D O55A 1401 408: MOVQ (SP)+7R5 ; Restore R3-R6 
53 8€ 7D 055d 1086 MOVQ (SP)+,R3 3 
05 3209 1oR7 50$: RSB 3 
0861 1405 REALLOC_CD_MAPREGS: ; Reallocate mapregs to a class driver 
0561 1408 3 process. 
54 14 AS 3 0561 140 MOVL CORPSL_FR4(R5) ,R4 ; Restore saved fork register. 
FDB3 0 0565 1408 BSBW IOCSALOMAPUDA ; Allocate map regi°ters if we can. 
&EB 50 €9 b2e8 et BLBC RO, 308 ; LBC implies allocation failure, branch 
OOOOOCOO'EF 16 0866 vei} JSB SCSSRESUMEWAITR ; Bocuse vetting thread and any backed 
c8 3611 «+0571 1218 BRB 20$ : arench back to try and allocate more 
0373 1414 ; UNIBUS map registers. 
0573 1415 -dsabl Lsb 
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+ 
IOCSDALOCUBAMAP = Common internal subroutine to update the UBA Map allocation 
structures to include the map registers specified here among the 
available map registers. 


INPUTS: 
R2 => ADP 
R53 = # map registers to free. 
R4 = first map register to free. 


OUTPUTS: 
The UBA Map Allocation structures are updated. 


Registers RO, R1 and R5 are modified. 


Pe Oe Oe Oe Oe Oe Oe Se Oe Oe Oe Se Se Se ee 
a 


OCSDALOCUBAMAP : 
55 4 CLRL : Initialize loop variable. 
oe. SY ADDL3) = R4,R3,R1 ; R1 = map register beyond extent. 
53 oe TSTL R3 ; Is the # of regs. to deallocate zero? 
es 1 BEQL 90$ :; Branch to bugcheck if zero. 
SC A be TSTL ADPSL_MRACTMDRS(R2) ; Test for zero active descriptors. 
4— 1 BEQL 50$ ; EQL implies no registers available. 


10$: 


O15E C245 51 B61 CMPW R1,ADPSW_MRFREGARY(R2)CR5) ; See if map repisters to free 
; ay ae $ ane Sever tues 
; current descriptor. 
07. =15 BLEQ 208 3 Led implies yes. , 
F355 SC A2~ F2 AOBLSS ADPSL_MRACTMDRS(R2),R5,10$ : Else branch back and try next. 
28 S11 BRB 40$ :; If here, registers to free 
; beyond those described by 
; last descriptor. So branch 
; to try and absorb at end of 
208: ; last descriptor. 
29° «12 " «BNEQ ~—s«408 NEQ implies that although we alloca- 


; registers before the current des- 

; criptor, we are not contiguous with 
: it. So we branch to try and absorb 
; these registers in the previous one. 


; Here we can absorb the registers in the current descriptor. 
ADDW3 pre reget + reba bs 44 bt te 
(R2)CR5),R0 


ADPS$W~MRFREGARY- o RO. 

CMPW RO,R4 Does it coincide with start 
of this extent? 

BEQL 30$ ; EQL implies yes. 


; Here we have the most ithety case. The map registers that we are freeing can 
: be absorbed into the top of the current descriptor but not also in the 
: previous descriptor. 


MOVW R4,ADPSW_MRFREGARY(R2)CR5) ; First register freed becomes 
; first register of current 


50 015C C245 62 A245 Al 
54 50 281 
oc 13 


Calculate end of previous 
extent and move t 


Sete te te 


O15E C245 54 B60 
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A? :; descriptor. 
64 A245 53 AO A7 ADDW R3,ADPSW_MRNREGARY(R2)(R5) 3 Number of registers is sum of 
ry: i; 6reg qoery noes ond regveters 
” r . 
05 ne ase previously described here 
< : Here we have the case where the map registers being freed fall between two 
5AD : describe the entire group with one descriptor, and so we also 
8 3 deallocate the current descriptor. Note new combined descriptor 
AD 3 will still begin at same map register number so we do NOT alter 
4 : this item. 
AD 
5AD 308: 
62 A245 53 AO OSA ADDW R3, ADP$W_MRNREGARY=2(R2)CR5) ; Partial sum of registers 
58 r soins freed and previous ones. 
62 A245 64 A245 ad O58 ADDW yr or aces b thls FANS P - ; Now add in registers described 
283 ADPSW_MRNREGARY=2(R TR5) ; in current descriptor. 
FFOA 31 0589 BRW DEALLOC_DESCRIP ; BRW to subroutine and let it 


; return to our caller. 


; Here we cannot absorb the freed map registers in the current descriptor. 
3 We test to see if we can absorb them in the previous descriptor. 


50 015€ C245 62 A245 Al ADDW3 pr ores bab BS Hf Eat ; Calculate end of previous 


Ea? ny nt RE SARYS ; _extent and move to RO. 


54 50 861 CMPW R 3; See if contigous with previous. 
0 12 BNEQ © -50$ : NEO implies NO- axing? ap 
62 A245 53 a0 sy R3,ADP$W_MRNREGARY=2(R2)CR5) ; Sum # of registers in extent. 


Here we must allocate a new descriptor to describe the map registers we 
are freeing. Conditions at this time are as follows: 


R2 => ADP 

R353 = # registers to free 

R4 = first register to free 

RS = index of where we must allocate descriptor 


Allocation is accomplished by calling subroutine ALLOC_DESCRIP 
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0$: 
FF § 30 BSBW ALOE DESCRIP ; Alloc RS = index of descriptor. 
ge A245 B0 MOVW R o AOE EN HAMAS GARY (83) ERS : Fill in allocated descriptor. 
O15E C245 & t' MOVW R4,ADPSW_MRFREGARY(R2)CR5 : 
4 RSB 
90$: BUG_CHECK INCONSTATE ; Non-fatal bugcheck on zero map 


; registers deallocation attempts. 


RSB ; Then ignore deallocate request. 


discontiguous blocks and exactly span the difference. We then can 
05 


vOe~000” acNOMAGS A(DRELATED suonourived " —rgrsepctgee GO-z1:1s yaniv meet, Paar 


; FUNCTION IS MERELY TO RETURN TO ITS CALLER. 
: INPUTS: 
: NONE. 
: OUTPUTS: 
NONE . 


5 ee 
Ot kt te ts 


.SBTTL RETURN TO CALLER 
; IOCSRETURN = RETURN TO CALLER 
; : THIS ROUTINE I$ CALLED AS A RESULT OF A DDT DISPATCH TO A NULL ENTRY. ITS 
; 
5 § ; 
40 : 
2 
2g : 
544 
545 
546 


sepitiitr~” y RETURN TO CALLER 


isang ATER LRP IER RBEP SS eee cu MERESIGE ABSL:HF A URCNGStORMany MP d 


-SBTTL WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 
IOCSWFIKPCH = WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 
THIS ROUTINE IS CALLED TO SOFTWARE ~—s INTERRUPTS AND TIMEOUT ON 
A DEVICE UNIT AND TO KEEP THE CHANNEL. THIS ROUTINE CAN BE CALLED AT 
EITHER FORK OR DEVICE INTERRUPT LEVEL. 
INPUTS: 
RETURN ADDRESS OF CALLER. 
TIMEOUT VALUE IN SECONDS. 
IPL TO LOWER TO AFTER SETTING WAIT. 
RETURN ADDRESS OF CALLER'S CALLER. 


CB ADDRESS OF DEVICE UNIT. 


OUTPUTS: 


THE TIMEOUT VALUE IS COMPUTED AND STORED IN DUE ay ine REGISTERS R3 AND 
R4 ALONG WITH THE RETURN PC ARE SAVED IN THE FORK BLOCK, INTERRUPTS AND 
TIMEOUT ARE ENABLED, AND A RETURN TO THE CALLER™ § CALLER IS EXECUTED. 


os Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
t + 


OCSWFIKPCH:: sWAITFOR erate Ch ateoea AND —_— CHANNEL 
ADDL O NORMAL RETU 


A 
MOVG age veces FR (RS) : SAVE REGISTERS R3 AND R 
POPL UCBSL_FPC(R5) VE INTERRUPT RETURN ADDRESS 
BISW  #UC eos. INT! Gcasn TIM, UCBs STstRs) ENABLE INTERRUPT AND TIMEOUT 
ADDL3 (SP) +. C*EXESGL_ABSTIM,UCBSC_ DUETIM(R ) ;SET TIMEOUT TIME 
BICW #UCBSM_ Tinpuse OCBSu. STS(R5)~; OUT 
ENBINT Re NALE INTERRUPTS 
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~SBTTL WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 
:* LOCSWFIRLCH - WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 
THIS ROUTINE IS CALLED TO SOFTWARE ENABLE INTERRUPTS AND TIMEOUT ON A DEVICE 


1OSUBNPAG I 
vO2-000 


UNIT AND TO RELEASE THE CHANNEL. THIS ROUTINE CAN ONLY BE CALLED AT FORK LEVEL. 
INPUTS: 


as at tt ns a a a an a + a te st 


OUTPUTS: 


THE TIMEOUT VALUE IS COMPUTED AND STORED IN DUE ay int REGISTERS R3 AND 
R4 ALONG WITH THE RETURN PC ARE SAVED IN THE FORK BLOCK, INTERRUPTS AND 
TIMEOUT ARE ENABLED, THE CHANNEL IS RELEASED, RNS A RETURN TO THE CALLER'S 
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64 AS 0 
6C AS wt at pa 34 Hy C1 
64 AS 040 8F 
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BISw ft BSM_TIM,U 
ADDL3 (SP)+,C*EXESGL_ABSTI 
B #UCBSM_TIMOUT ,OCBSW_SfS I 

IOCSRELCHAN TRELEASE ALL CHANNELS AND RETURN TO CALLER 
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~SBTTL ALLOCATE SYSTEM PAGE TABLE 
IOCSALLOSPT = ALLOCATE SYSTEM PAGE TABLE 
THIS ROUTINE ALLOCATES SYSTEM PAGE TABLE (SPT) ENTRIES. 
INPUTS: 

Ri = NUMBER OF SPT ENTRIES TO BE ALLOCATED 


BOOSGL_SPTFREL = LOWEST FREE VPN 
BOOSGL"SPTFREH = HIGHEST FREE VPN 


IT IS ASSUMED THAT THE CALLER IS RUNNING AT IPLS$_SYNCH. 


v04~000 ALLOCA 
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Mm 


PIOOOSSAS >} 
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6 
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6 OUTPUTS: 

6 RO = SUCCESS | INDICATION. 

6 Re = STARTING PAGE NUMBER ALLOCATED (SVPN). 

6 R3 = ADDRESS OOF BASE OF SYSTEM PAGE TABLE (MMGSGL_SPTBASE). 

6 R1 IS PRESERVED ACROSS CALL. 

6 OCSALLOSPT: : yALLOCATE SYSTEM PAGE TABLE 

50 D4 «(06 CLRL = RO ASSUME FAILU 
52 0009900" EF DO 06 MOVL L *B0086 _SPTFREL,R2 [GET NEXT A VAILABLE SYSTEM VPN 
1 C1 06 ADDL3 RIA 2,R : COMPUTE NEXT WITH THIS ALLOCATION 
OOOOD000'EF 53 D1 06 CMPL L*BOOSGL_SPTFREH TARE THERE ENOUGH AVAILABLE? 
19 3 63 BGEQU Rag :BR IF NO 
00000000'EF 53 D0 064 MOVL  R3,L*BOOSGL_SPTFRE [MARK THE ENTRIES ALLOCATED 
5 00000000" EF DO 064 MOVL  L‘MMGSGL_SPTBASE,R 'GET ADDR OF BASE OF SPT 
0 D6 064 INCL RO :SET SUCCESS 
65 10$: 
05 065 RSB : 
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The | 
owns 
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R1 = 
R4 = 


Outputs: 


The d 
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L CONVERT DEVICE NAME AND UNIT 


3¢ 
; IOCSCVT_DEVNAM = Convert device name and unit 


: This routine is called to convert a device name and unit number to a physical 
; device name string. 


aller is assumed to have PROBEd the output buffer for write access. 
/O0 data base is locked for read access. This means that the caller 
the 1/0 data base mutex and/or is at IPL SYNCH or higher. 


Length of output buffer. 
address of output buffer. 
name serine formation mode, one of: 
1 (DVIS_DEVNAM) == a name suitable for displays 
for non-local devices, return node$ddcn 
for local devices: 
if in cluster and file oriented device, return node$ddcn 
otherwise, return ddc 
0 (DVIS_FULLDEVNAM) <= a name with appropriate node information 
if allocation class not zero and file oriented device, return 
Salloclass$ddcn 
otherwise, return node$ddcn 
1 (OVIS ALLDEVNAM) -- a name with allocation class information 
if allocation class not zero, return $alloclass$ddcn 
otherwise, return node$ddcn 
2 (no GETDVI item code) -- an old fashioned name 


return ddcn 

3 (no GETDV] item code) -- a secondary path name for displays 
same as -1 except ponsneers path name returned 

4 (no GETDVI item code) -- path controller name for displays 
same as -1 except no unit number is appended 

Note: if the node name string is null, node$ is not returned. 

address of device UCB. 


evice name and unit number are converted and stored in the specified 
t buffer. The following register values are returned: 


RO = Final conversion status. 


NORMAL or 
SSS$_BUFFEROVF (an alternate success status which 
ndicates that the supplied buffer could not 
hold the device name string) 
R1 = Length of conversion otr ing. R1 = f the alternate 
path name was requested but none exists. 


Working storage (offsets from R7) 


ET 0 posi tiye .< - 
<BINNUM, > - Binary value to convert to ASCII 
; add new working storage cells before this Line 


IC 


i aan ;Setup result RO and R1 pointer in R7. 
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yoe-000 CONVERT DEVICE NAME AND UNS BrSEE See Oesetiae Len es HCG aNCAc tan:1 Pas .$}, vt 
1719 <RESRO>, - sResult R 
171 <RESR >: - sResult R 
1716 <SCRLEN,O> - zsamount of working storage 
6 171 <RESR2>, = ;saved Re 
6 1714 <RESR5>, = ssaved R 
6 ar <RESRG>, - saved R4 
63 4 ba 
RESRO: 
0 RESR1: 
1 SCRLEN: 
1 RESRe: 
1 RESRS: 
be 1717 RESR4: 
B92 1718 IOCSCVT_DEVNAM: : :Convert device name and unit 
OOFC 8F 6B O65 1781 PUSHR #*M<R2,R3,R4,R5,R6,R7> ;Save registers 
0656 17 ¢ ; Push a quadword onto the stack. The quadword will land 
beee 17235 ; on the stack so that when the POPR at the end of the routine 
656 1724 ; is executed, RO will contain the routine value, and R1 will 
Beee Vy 5 ; contain the Length of the formatted device name. 
7E 601 7D 0656 17 S peve #SS$_NORMAL ,-(SP) ;Put a 1 and a 0 on the stack 
7E 7C 0659 1728 CLR =(SPY iInit binary number working area. 
0658 1729 ASSUME SCRLEN EQ 16 
Ogee 178) ee on 
QO65E 17 ¢ 3; Precede the device name with a ‘'"' (underscore character) to 
ets Vy ? : indicate that this is a physical device name. 
53 SF 8F 9A O65E 1735 MOVZBL #*A/_/ ;Put underscore character in R3 
0084 30 066 7 : BSBW PUTCRAR :Put it in the output buffer 
0665 1738 : Check for a possible nodename. If it exists, determine which format 
3; of name was requested by the caller. 
re te f d by th Ll 
56 $8 AS DO 0665 1741 MOVL UCBSL_DDB(R5) ,R 3Get DDB address 
5234 AG 00 669 1248 MOVL  DDBS$L~ =SB(R RO), aio iGet System Block address 
5D 61 66D 174 BEQL Lo CA None, leave 
09 «sé post 1744 BBC #DEV AeoNA ‘Branch if nodename not wanted 
58 3C AS 671 1745 UCBSL Ta cas. LOCAL, NAM 
674 1746 CASE R4, = TDispatch on type of output requested: 
674 174 Limit=#-1, displist=< 
74 ee DISPLAY NAME, 3 71 ==> node$dev: for disks, else dev: 
674 174 FULL_NARE, = : 0 ==> $allocls$dev: or node$dev: 
674 1730 ALLOC_NAME, = : 1 ==> $allocls$dev: or node$dev: 
74 «17 LOCAL_NAM 3 ‘ ==> just dev: 
674 17 ¢ SECONDARY _NAME : ==> secondary path 
ot Ve ? DISPLAY_N 3; 4 ==> same as -1 sans unit number 
3 others are Ss. 
5B soi iy 5 BRB EXDVNM ALL oth NOP 
6 V7 5 FULL_NAME : 
33 38 AS «(OE CCE «(06 1 8 BBC #DEVSV_FOD, - 3A file oriented device? 
68D 17 UCBSL_BEVCHAR(RS), = 
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° 4 ADD_NODE sBranch if not file oriented device. 
6 p ALLOC_NAME : 
67 3C A6 9A 068D MOVZBL DDBSL ALLOCLS (RG), ~ Setup allocation class value 
691 BINNUA(R7) ; for conversion. 
D 13 eat BEQL ADD_NODE :I1f none return nodet+device name. 
00 g 69 BSBW PUTBOLLAR :Prepend allocation class with a '$’ 
10 069 BSBB PUTNUM sConvert allocation cless number to 
69 sASCII and put it in the buffer 
30 11 069 BRB ADD_DOLLAR sAppend dollar sign to alloc. class 
SRA ; and add device name to buffer. 
69A SECONDARY_NAME: 
4 €1 069A BEC #DEVSV_2P,- Branch if device not dual-pathed. 
3¢ 23e ee BEVCHARZ(R5) ,~ $ heres there is no secondary path to 
3 return. 
56 OOA0 cs 00 69F MOVL UCBS$L_DP_DDB(RS) ,R6 :Get secondary DDB. 
45 1 6A4 BEQL NO_SETONBARY Branch to no sec. path if none. 
52 34 a6 00 ehs MOVL DDOBSL_SB(R6) .R2 :Get alternate SB. 
Dek DISPLAY_NAME : 
00000000'8F 52 Di Q6AA CMPL R2,#SCS$GA_LOCALSB sIs it the perm local system block? 
0D 12 0681 BNEQ N sReturn node+devnam for non-local devs. 
683 IFNOCLSTR LOCAL_NAME Return devnam if not part of a cluster. 
0c 38 AS) «6(OOE:~C‘é#é€* BBC #DE 3A file oriented device? 


V$V _ 
UCBSL_BEVCHAR(RS), - 
LOCAL NAME Branch if not a file oriented device. 
zIts a local disk in a cluster: return 


;node+device name format. 


; Return node name plus device name. Copy node name to buffer and 
; suffix with a ‘S$’ before moving in rest of device name. 


MOVAB SBST_NODENAME(R2),R2  :Point to name field 
TSTB. (2) 


DAPAAPDAPAA AA AAA AA AAA AAAOO 


TOVOMOAOAOAOOOOOOAAOOAOAOHAOOO 
tt = I I IQHODDOODOOCOOOCWOO OOOO OO OW WWW OOOO NI NINN NIN NIOPO OOOO MO 


et 9 4 sw a a a bb a = bb a a 2b ts ts a 2 tb ts a tt 
G0090009000900 00 09 09 09 09 0909 090908 SI INI aaa ahh 
BALAN OOD NA NEAR $$ 9 OD NAME WN 9 OD NAME WIN 0 ODNAU EAN O ODNOUE OO 

_ . 


0 
0 
a8 
0 
b6co 
ae 
52 44 A2 9 
62 5 8 4 sIs the node name null? 
06 ~=«1 g BEQL LOCAL_NAME Skip sneort ine node name, if its null. 
3E 10 BSBB PUTASTIC :Copy counted ASCII str. to output buf. 
A ADD_DOLLAR: : ; 
4A 10 " BSBB PUTDOLLAR zAppend dollar sign to node name 
: : Copy device name to buffer. 
C LOCAL_NAME : 
52 14 A6 3 MOVAB DDBST_NAME(R6),R2 :Get address of ASCIC device name. 
3 1 :Copy counted ASCII str. to output buf. 
06 I18A Bi 06 CMPW RESR4(R7) #4 7Do we want the unit number? 
08 13 06 BEQL EXDV Nope 
67 S4&A 3C 06D MOVZWL UCBSW VaLTCRS), - :Setup device unit number for 
6dC BINNUA(R7) 3; converstion to ASCII. 
12 10 ret BSBB PUTNUM :Convert unit number to ASCII. 
DE : Terminate the device name with a "':"' (colon). 
53 A 9A read MOVZBL #*A/:/,R3 sPut a “':"' in R3 
6 10 06€ BSBB —s- PUTCHAR :Put the '':"' in output buffer 


IOSUBNPAG 
v04-000 


zu 
—> 
a 
m 
mo 


¢ 6 
RELATED SUBROUTINES 16-SEP-1984 00:21:15 VAX/VMS Macro V04- ? 
NAME AND UNIT Breer abe Bose gsae Ne M eS lero Mlk OO ks || rage 


++ 
The following code is a local subroutine to copy a counted ASCII string 
to the output name buffer. 


R2 Beginning address of a counted ASCII string 


1/0 
DEVICE 
43 1817 ; 
E 1818 ; Clean up the stack and exit. The stack has been set so that 
3 ! 1 ; the proper values will be stored in RO and R1 by the POPR. 
5E 08 CO 4: 1821 EXDVNM: ADDL #RESRO,SP Remove everything upto result RO 
6E6 1 4 sfrom the stack 
OOFF 8F BA Q6E6 1 POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7> ;Restore registers 
0S Q6EA 1824 RSB ;Return 
ale 
th 1 5 3 Come here when the secondary device name was requested but none exists. 
6—B 1 5 NO_SECONDARY: 
OC A? D& O6EB 1830 CLRL RESR1(R7) ;Clear count of characters 
F3 11 O6EE 1831 BRB EXDVNM zjand return. 
O6FO 1 § 
Ser 1884 4s 
06FO 1835 : The following code is a local subroutine to convert binary to ASCII and 
Bere } $ : put the ASCII equivalent in the output name ouffer. 
SE RE: trou 
O6F0 1840 : BINNUM(R7) binary number to be converted (a quadword with high 
Oer ’ ei : Longword zeroed 
O6FO 1 rk : Outputs: 
O6FO 1844 ; The number at BINNUM(R7) is converted to ASCII and stored in the 
beep : re 3 device name buffer. 
06FO 1 rh PUTNUM: 
>. wf. & pore 1848 MNEGB #1, R3 :Get end-of-number marker. 
43 53 90 O6F3 1849 108: MOVB R3, -(SF, :Move digit/marker to scratch. 
Ss oF ¢ OA 7B O6F6 1850 EDIV #16, BINNUM(R7), - :Divide number by 10, overwrite number 
6FB 1851 pete R3 swith quotient, put remainder in R3. 
F6 12 QO6FB 1 26 BNEQ 10$ :If quotient not zero, go save this 
BoFB ! 37 ; digit and get the next one. 
6FD 1855 ; Get digits -- most significant first (then saved ones), convert them to 
A ! 2$ 3; ASCII, and put them in the output buffer 
53 30 80 O6FD 1 38 50s ADDB = #*A/0/, R3 :Convert binary digit to ASCII 
| ae 185 BSBB PUTCHAR : Copy tM to output buffer 
ee aoe 1 ¢ MOVB ()*. R3 Get another digit 
F611 1861 BGEQ 50$ :Branch if the end 
0 1 66 RSB 
186 
1864 
1866 
1867 
1 oe 
189 
i 
1898 


OOOO OCOCOCOOOCOOooo 


: Inputs: 


; Outputs: : : 
: The counted ASCII string pointed to by R2 is copied to the device 
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g ! is : name buffer. 
708 1 i: PUTASCIC: 
54 9A 07 187 MOVZBL (R2)+, R4 Get counted string length. 
1 70B 1 4 BEQL sI1f no characters, leave. 
53 9 4 1879 5$ MOVB (R2)+, R3 ;Move one byte to output buffer. 
1 710 1880 BSBB.—s- PUTCHAR :Put the character in the output buffer. 
F854 OFF 712 «1881 SOBGTR R4, 5$ :Branch if more to copy. 
05 0715 1 § 90$: RSB ;ALL done, return. 
716 «1 
rie pas 3 
716 «1 § : The following code is a local subroutine to place a given 
716 «1 ; byte in the output buffer. A count is kept of all characters 
716 «1888 ; placed in the output buffer. If the output buffer is full, 
716 1889 ; the byte is not copied, the count is not increased, and the 
8718 1890 ; return status for Focsevt DEVNAM is changed to SS$_BUFFEROVF 
or 18 : 34 ; (an alternate success status). 
0716 1838 : Inputs: 
0716 1894 ; RO Count of unstored character slots remaining in output buffer 
0716 1895 ; R1 Address of next unused character slot in output buffer 
B78 1396 : R3 Character to be placed in the buffer 
716 1898 ; Implicit inputs: 
ore 1899 : ~ weRESROCR?) Longword holding final IOCSCVT_DEVNAM status 
0716 1900 ; RESR1(R7) Longword holding final IOCSCVT_DEVNAM count of 
0716 1901 ; characters stored in the buffer (to be 
0716 1386 : returned in R1 
0716 1903 ; 
0716 1904 ; Outputs: 
B78 1302 3 None. 
0716 1909 : Implicit outputs: 
0716 1908 ; If RO >= zero: 
0716 1909 ; R <ss RO - 1 
Oo18 1911 a ae 
Orie 1918 : RESR1(R7) <== RESRI(R7) + 1 
716 #1913; otherwise: 
at Wale ee RESRO(R7) <== S$S$_BUFFEROVF 
rte 1918 : PUTDOLLAR is an internal routine which is the equivalent of: 
716 1918 : MOVB = #*A/$/, RB 
r16 1919 ; BSBB  —~ PUTCHAR 
716 1921 PUTDOLLAR: me: 
53 24 90 at i § purenen: OV #*A/$/, R3 :Setup to put ‘’$'’ in output buffer. 
5 D7 0719 1924 “DECL RO ;Decrease characters remaining count, 
iy 19 0718 1925 BLSS 90$ Branch if no more characters remaining. 
81 os 90 0710 19 § MOVB R3, (R1)+ :Copy character to output buffer 
OC A7 7 " 19 INCL RESR1(R7) ;Count characters stored 
Be fh 13 8 RSB ;Return 
08 A? 0601 BF 3C 0724 1950 908: MOVZWL #SSS$_BUFFEROVF, - Set buffer overflow status 
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~SBTTL BROADCAST TO A TERMINAL 
IOCSBROADCAST 


This routine will allow driver fork processes to broadcast a 
given arenes to given terminal. The broadcast request is 

ispatched to the proper terminal and control returns immediately 
to the caller. Some time later the broadcast will complete, and 
at that time all the necessary post-processing will be done. 


This routine does not implement all the features of the SBRDCST system 
service, but only the bare minimum necessary to send a message to a 
s ns terminal. For more information about the terminal broadcast 
mechanism, see the module SYSBRDCST. 


I1OSUBNPAG = NONPAGED 
04-000 : 


1/ 
BROADCAST TO 


~“ 
wo 


Message length 
Message address 
Address of target terminal's UCB 


Ry 
nS 
Implicit input: 

IPLS_ASTDEL <= CURRENT_IPL <= UCBS$B_FIPL(RS) 
Output: 

None. The contents of R1 .. R5 are preserved across the call. 
Routine value: 


SS$_NORMAL - The broadcast completed eat lee 
SSS$_INSFMEM - Insufficient dynamic nonpaged pool for the request. 
SS$_DEVOFFLINE = The target terminal has rejected the request. 
SSS_ILLIOFUNC = The specified UCB does not belong to a terminai. 
(Therefore a BROADCAST is an illegal 1/0 function.) 
SAVED_RO = 0 $< 
SAVED_R1 = 4 Ss 
sAved ne = 8 . 4 
SAVED_R5S = 13 ; . Symbolic offsets to saved registers 
SAVED_R4 = 1 5 a 
SAVED_RS = 20 oe 
IOCSBROADCAST:: ; Broadcast to a terminal 
50 OOF4 BF 3C MOVZWL #SS$_ILLIOFUNC,RO 3; Assume device not a terminal 
E1 B #D0EVSV_TRM,- ; Branch if not a terminal 
UCBSL_BEVCHAR(RS).14$_—; 


PUSHR #*M<RO,R1,R2,R3,R4,R5> : Save RO 


ee RS 
ADDL2 #TTY$K’WB LENGTH,R1 ; Calculate the total pool required 
MOVZWL #SS$_IRSFREM,SAVED_RO(SPS; Assume allocation failure 
BSBW EXE SIL ONONPAGED : Allocate the pool 
BLBC RO,13 ; Exit if error 


: Fill in the Terminal Write Packet (TWP). 
3; Note that EXESALONONPAGED the pool size 
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Wwe a eee eres testeslesTesdesTesTesdestesdesTesdestecdesdecTesdeslesTeclesTesTesleclesleslesTeslesTeslecTesleclesleclesleslesles[osles[eslesTesTes[es] 
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tt 198% ; in R1 and the pool address in R2. | 
08 A2 3 88 by 1 38 Mov R1,TTYSW_WB_SIZE(R2) ; Set TwP size 
74 1238 MOVB #OYNSC_TOP,= ; Set TWP structure type 
OA A 74B «(1995 TTY$B_OB_TYPE(R2) : 
0 90 0740 1996 MOVB #1PL$-QUEUEAST,=- 3; Set the TWP fork IPL (for Later use) 
0B A 74F 199 TTY$B-WB_FIPL(R2) ; 
10 a2. 0 0 0751 1998 MOVL #1, TTYSL-WB_FR3(R2) ; Request refresh of read prompt 
30 A E 07 ; 199 MOVAB YT ie DATA CRG? «= ; Set address of message start 
ic A 7 0 TTYSL-WB-NEXT (Re) : 
04 A C1 O75A ADOL3 SAVED RISE) - ; Set address of message end 
if A 75D Q TTY L2WB NEXT (RQ) ,~ ; 
§ A 75F TTYSL_WB_END(R2 3 
6'AF 9E 0761 o MOVAB B“END-BROADCAST,=- ; Set callback address 
e¢ A 764 5 TTYSL“WB_RETADDR(R2) 3s; 
4A D4 £06 B06 CLRL TTYSL_WB_IRP(R2) ; Clear_pointer to associated IRP 
5 DD 076 0 PUSH R2 : Save TWP address 
08 AE 28 0768 2008 MOVC 4*SAVED_R1(SP) ,- : Copy the message text to the TwP 
o¢ BE 076 009 @4+SAVED_R2(SP5 ,- ; (note the stack depth changed) 
OA di 10 TTYS$L_WB-DATA(R2) : 
OF big ; Queue the broadcast request to the terminal. 
77 4 ; The disposition of the broadcast request will be determined 
077 14 ; by the contents of TTYSL_WB_END. Note that if the request is 
077 015 3; accepted a | a remote terminal, or is rejected outright, the 
077 016 ; TWP is no onger needed, and may be deallocated. The fTYS$L_wB_END 
144 +4 : field of the TWP will contain one of the following values: 
077 019 3 System address: request accepted by TTDRIVER 
077 0 : 1: request accepted by RTTDRIVER 
Off 8 1 $ 2: request rejected 
6— 00 077 0 5 MOVL (SP),R3 ; Put TWP address in R3 
55 18 AE b° 77 024 MOVL 4+SAVED_R5(SP),R5 ; Restore UCB address 
F884" 779 «2025 BSBW EXESALTOUEPKT 3; Queue the request to the terminal 
50 B8EDO O77C 20 § POPL RO ; Remove TWP address from the stack 
6— 01 C O77F MOVZWL #SS$_NORMAL ,SAVED_RO(SP); Assume success 
20 A D3 7 5 8 TSTL ‘ TTYSC_WB_END(RO) : Check for rejection 
0 1 7 9 BEQL 9$ ; Branch if request rejected 
8 14 0787 0 BGTR 0$ ; Branch if remote terminal accepted 
F 789 1 13$: POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore the registers 
5 07 § 14$: RSB ; Return 
0084 of C 790 Z 69$: MOVZWL oe 88 PENOEELINE.= ; Set broadcast rejection status 
rom 30 079 5 80$: BSBW COMSORVDEALRER ; Deallocate the TwP 
§ 11 794 § BRB 13$ ; Take common exit path 
rs 
796 5 3; The following code performs all of the necessary broadcast post-processing. 
796 40 ; This entry point is FORKed to at IPL IPL$_QUEUEAST from the terminal driver. | 
Pee rf 3; The fork bibck is the TWP, | 
79 28 END_BROADCAST: ; Post-processor for broadcast requests 
36 CUS 0 79 44 MOV R5,R0 3 Copy WP address 
F864" 31 079 45 BRW EXE $DEANONPAGED : Deallocate the TWP and return 


OCSCONBRDCST:: : Broadcast to a terminal 
PUSHR #*M<RO,R1,R2,R3,R4,R5> =; Save RO .. RS 
VA OPASUCBO,RS ; Get the console terminal UCB 
SUBL #TTYSK_WB_LENGTH,R2 ; Retreat to the start of the TwP 


: FILL in the Terminal Write Packet (TWP). 
MOVY R1,TTYSW_WB_SIZE(R2) 


3F ge 
55 eet: adh 3 


Set TWP size 
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, : r Deve -SBTTL BROADCAST EMERGENCY MESSAGE TO CONSOLE 
, c 4 ; IOCSCONBROCST 
79C : This routine will allow energoney messages to be put on the console 
79C § ; terminal. Some time later the broadcast will complete, and 
at: ? : at that time all the necessary post-processing will be done. 
i 2? : Input: 
79C 5 ; R1 = Message Length 
73¢ 3 : R2 = Message address 
Pe 9 : Implicit input: 
79 $¢ : IPLS_ASTDEL <= CURRENT_IPL <= UCBSB_FIPL(RS) 
79C 64 : A dedicated TWP block must vanes esate graces the message. 
79C 65 ; The low bit of the first byte of the TWP is assumed to remain clear 
1433 $6 : while it is in use. 
73 68 > Output: 
oe 79 : None. The contents of R1 .. RS are preserved across the call. 
1433 fs : Routine value: 
sr RR ; SS$_NORMAL - The broadcast completed successfully. 
79C 2076 © 
00000000 079C ig SAVED_RO = 0 30 
$3008 Grae S808 SAEECE) = § ; 
= Py e 
si 4 4408 79C¢ SAVEDIRS = 12 ; . Symbolic offsets to saved registers 
0000001 79C SAVED_R4 = 18 = 
00000014 079C SAVED_RS = 2 Se 
I 
08 A2 1 3 
3) 8 7AC MOVB #OYNSC_TOP,= 3; Set TWP structure type 
OA A2 7A TTY$B_OB_ TYPE(R2) : 
0 90 078 MOVB dink “QUEUEAST = ; Set the TWP fork IPL (for Later use) 
0B A 78 95 TTY$B-WB_FIPL(R2) : 
10 A2. 0 DO 078 38 MOVL #1, TTYSL_WB_FR3(R2) ; Request refresh of read prompt 
30 AS 9E 0788 9 MOVAB YTVeL UB_DATACRG} .~ ; Set address of message start 
iC A 788 38 TTYSL“WB NEXT (R2) ; 
A C1 0768 9 ADDL3 saveo.k TSP) ,- ; Set address of message end 
¢ A 7¢ 6 TTY LWB_NEXT(R2) ,~ : 
20 A 7C TTYSL_WB_END(R2 $ 
os a 9E O7C ¢ MOVAB B“END_CORBRDCST,- ; Set callback address 
C A2 7¢7 TTYSL~WB_RETADDR(R2) ; 
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Vo2 bo BROADCAST ENERGE NEY hE SSAGE YO CONSOLE "er8 -$ P= 1382 88: et: }3 YOYS. SRCJIOSUBNPAG.MAR; 1 (29) ri 
1 CLRL TTYSL_WB_IRP(R2) ; Clear_pointer te associated [RP 
™ 8s BS ree } é PUSHL Ro + Save TWP addres 
4s } § ; Queue the broadcast request to the terminal. 
53 $2 7CE 01 MOVL = R2, RB ; Put TWP address in R3 
: @ the request to the terminal 
ty wt ny if Bape EXESALTQUEPKT 3 honove TwP address from the stack 
6E 4 707 211 MOVIWL #SS$_NORMAL sAygo -RO(SP); Assume succe 
20 A i) 7DA 118 TSTL TTYSC_wB_E END(R 3; Check for re ection 
5 1 70D 2114 BEQL : Branch if request rejected 
oF 7D0F 2115 13$: POPR #*M<RO,R1,R2,R3,R4,R5> : Restore the registers 
0084 8F 03 re) 7 498; MOVZWL oe ee PE YOE LL IME. : Set broadcast rejection status 
6E 76 3 
: #1, (RO) ; Mark the TWP free 
™ HI f Teh iH sate BRB 13§ : Take common exit path 
7EC 21 : 
: f Ll of the necessary broadcast post-processing. 
Sree } ; Ths!entry paint. ts FORKed: to at IPL IPL$ “ QUEVEAST from the terminal driver. 
1435 } gi : he fork buck is the TwP. 
CONBRDCST: ; Post-processor for broadcast requests 
65 01 fe Ore : én ND. a #1, (R5) ; Mark the TWP free 
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4g ] i -SBTTL SCAN THE I/O DATA BASE 
oF ; ; IOCSSCAN_IODB = Scan the 1/0 data base and return next block. 
7F 135 : This routine is called to scan the device Lists in the 10 data base and 
7F 1 § 3 return a golnter to the next block in the List. Context is kept in R13 
gf ! ; and by using back pointers. 
4d H : Inputs: 
7F 14 : The 1/0 data base is locked for read access. This means that the caller 
Ad 148 : owns the 1/0 data base mutex and/or is at IPL SYNCH or higher. 
7FO 2144 : R11 = 0 implies first call 
7F 145 ; R11 <> 0 indicates that R11 is pointer to current DDB 
7F 198 } aig = implies end of UCB chain 
gr 1? : R10 <> 0 indicates that R10 is pointer to current UCB 
gr 145 : Outputs: 
7F 151 : RO = Success status. 
7F 1 § : R10 = Pointer to UCB 
OFF ; ? : R11 = Pointer to DDB 
7F 155 ; ALL other registers preserved. 
7F 1 § ; 
oro 5188 
gr 133 IOCSSCAN_IODB: : 
50 601 D 7F 161 MOVL #1,R0 ; Success 
38 p di 16¢ st Ri : Initial condition? 
: Yes 
gf Be 7F 164 TSTL R10 3; End of chain? 
eS 7F9 «2165 BEQL 10$ : Yes 
5A 30 AA OD 7FB 198 MOVL UCBSL_LINK(R10) ,R10 3; Get next UCB 
— Be 7FF 216 BEQL 10$ 3; None 
05 0 0 198 RSB 
68 rf $ 190 10$: TSTL RRESt Lec Catt) 3; At end of DDB chain? 
OA 1 04 2171 BEQL 0$ : Yes 
5B 6B OCOD 96 17 MOVL DDOBSL_LINK(R11),R11 ; No, get next one 
SA 04 > D 0 173 208 MOVL DOBSL_UCB(R11),R10 ; Pick up first UCB 
f 1 Be 174 BEQL 10$ ; None, get next DDB 
0 of te RSB 
5B 34 AB 4 18 15 t+ MOVL pogst SB(R11),R11 ; Get back to parent system block 
38 68 D 14 178 40$: MOVL  SBSL_FLINK(R11),R11 : Get next system bloc 
00000000'8F 5B D1 0817 217 CMPL R11, #SCS$GQ_CONF IG : End of chain? 
ga is 1 180 BNEQ 60s 3 No 
0 8 181 DECL R 
5 : § RSB 
58 vena oe i) 184 208 MOVL @#SCS$GQ_CONFIG,R11 ; Pick up first system block 
4 ae p A 2185 60$ TSTL SRSL_0dBTRIT) i Is there a DDB chain? 
E D 21 § BEQL ; No, go sry next SB 
5B 54 AB OD F 21 MOVL SB$L_DDB(R11),R11 ; Yes, get the first DDB 
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; .SBTTL SCAN THE 1/0 DATA BASE BOTH PRIMARY & SECONDARY PATHS 
I1OCS$SCAN_10DB_2P 


This routine is called to scan the device Lists in the 10 data base an 
return a pointer to the next block in the List. Context is kept in R1 
and R11 and by using back pointers. 


SCAN_IODB_2P differs from SCAN_IODB in that it will scan both the primary 
and Secondary UCB chain for each DDB. This means that if a device is 
dual-pathed, SCAN_I10DB_2P will return the address of its UCB twice, once in 
soe eats of the primary controller and once in the context of the 

ry. 


Inputs and Outputs are identical to IOCSSCAN_IODB. 
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IOCSSCAN_10DB_2P: : 


No UCBs left on primary chain; traverse secondary chain if present. 


0 
a eee, 0 MOVL #1,R0 ; Success 
5B OD TSTL = RV : Initial condition? 
41 1 BEQL 60$ ; Yes 
SA B TSTL R10 : Caller signalled end of chain? 
™— Baz BEQL 30$ : Yes, done with this DDB 
O84 : At this point we must decide if we're following the primary or secondary 
Bae : chain of UCBs on this DDB. 
5B 28 AA Di 084 ‘ CMPL UCBSL_DDB(R10) ,R11 ; Are we Freversing the primary chain? 
Or Obe BNEQ 10$ ; Branch if we're following secondary 
5A 30 AA 00 084 MOVL UCBSL_LINK(R10) ,R10 ; Get next UCB on primary chain 
09 = bee BEQL 20$ ; Branch if none to try secondary chain 
05 bse ; RSB : Else return UCB address to caller 
O84 : Get next UCB on secondary chain. 
5A OOA4 CA 00 ase 10s: MOVL YE Bte OP LIME CRIS) AIG ; Get next UCB on secondary chain 
08 1 BEQL 0$ ; Branch if none left 
05 : RSB ; Else return UCB address to caller 


80S:  MOVL POBSL_DP_UCB(RI1) ,R10 : Get first UCB on secondary chain 
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5 
5 
5 
: 
5A 40 AB OD 5 
01 #1 : BEQL ; Branch if none to try next DDB 
0 28 ; RSB ; Else return UCB address to caller 
3¢ : Step to next DDB. 
68 05 085¢ $0$:  TSTL DDBSL_LINK(R11) ; At end of DDB chain? 
OA 1 5 BEQL 40$ : Yes, try next system block 
5B 66B OCOD 6 MOVL DOBSL_LINK(R11),R11 ; No, get next one 
5A 04 AB OD 6 35$ MOVL DOBSL~UCB(RI1) .R10 ; Pick up first UCB on primary chain 
a BEQL 0$ ; None, try for UCB on secondary chain 
05 +4 RSB ; Else return UCB address to caller 
A 
A 


Aamo 


: Step to next system block. 
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48 : 
5B 34 AB OD A 4 408 MOVL +4 tag SB(R11),R11 3; Get back to perent sen block 
38 B »D 5 MOVL $8 L_FLINK(R14),R11 > Get next system b 
00000000'8F 5B p CMPL R11, #SCS$GQ_CONFIG : End of chain? 
A $ 7 § BNEQ ye : No 
0 B 7A DECL R ; Signal end of I0 scan 
5 43 2 RSB 
58 eT D 7D § 60s MOVL @#SCS$GQ_CONFIG,R11 ; Pick up first system block 
4 ) 4 $ TSTL $L_DDBTR11) 3; Is there a DDB chain? 
E 1 7 8 BEQL ; No, go try next $B 
5B 54 AB oY : 9 5 MOVL ean eit ; Yes, get the first 
a | D 60 BRB $ ; Try for UCB on primary chain 
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: § oe -SBTTL JIOCSCTRLINIT = Call driver controller init. routine 
F 4 ; FUNCTIONAL DESCRIPTION: 
F : : For UNIBUS devices, the device CSR is tested for existance. If this 
F 3 eget fails, a no routine call occurs and failure status is returned in 
e 8 3 RO. Input values for a device driver's controller initialization 
F 8 3 routine are loaded into the proper registers, the routine starting 
: A $ address is located, and if a routine exists, it is called. 
F ce > INPUTS: 
F 73 3 R1 CSR address to use if IDB contains zero 
F 74; R8 CRB address (primary) 
8 : fe 3 R11 DDB address 
88F 3 : OUTPUTS: 
88F 4 $ RO Status (success, or failure ==> UNIBUS CSR non-existant) 
88F 79 ;: R1i-R6 Destroyed 
tt 0 ;-- 
3 f ite 
O88 es : Controller initialization routine parameters: 
nto 5 : INPUTS: 
O88F 8 3 RG CSR address (for UNIBUS and MASSBUS devices) 
tH 4 3 SCSSYSTERIO eddress (for class drivers during SYSGEN driver 
3 oadin 
O88F 89 ; zero for all others, including class drivers during power 
O88F 90 ; failure recovery 
tH 91; RS IDB address (or zero if none exists) 
88F 35 Z R6 DDB address 
tt 37 3 R8 CRB address 
O88 95 : OUTPUTS: 
tt 38 : Must preserve all registers except RO through R4. 
O88F 2298 :-- 
SHE 555 
8 : 1 IOCSCTRLINIT:: 
55 2C AB OD F MOVL CRBSL_INTD+VECSL_IDB(R8), RS ; Get 108 address. 
oF 9 4 BGEQ 10$ ; Branch if none. 
54 By 9 5 MOVL ApgSL CSRIRSD, RG ; Get CSR address. 
ae 9 $ BLSS 0$ ; Branch if reek ty a CSR. 
54 1 9 089A 10$: MOVL R1, R4 : Else, use supplied value, 
iB 11 90 08 BRB 40$ > and skip CSR testing. 
56 14 A5 00 oF 19 208: MOVL IDBSL_ADP(RS), R6 : Get ADP address. 
| ee A 1 BGEQ 0$ : If none, one CSR test. 
OE A6 ot 8) A 1 CMPW #ATS_UBA, ADPSW_ADPTYPE (R6) : Is this a UBA? 
F 1 BNEQ $ : If not a UBA, skip CS? test. 
g $6 d AB 14 MOVL ADPSL_CSR(R6), R6 ; Get adapter config reg addr. 
4 O at 15 MOVL R4, R : Setup CSR for test. 
0000 000° GF 1 18 JSB GrEXESTEST_CSR i Test UNIBUS CSR. 
E50 € f i BLBC RO, 908% ; Branch if no CSR present. 
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50 30A D & 19 408: MOVL COOOL. INTDOVECEL INITIAL (RS), RO ; Get ctrl init rout addr. 
9 1 8 0 8 : “Branch if _ e. 
56 8 C 1 MOVL R11, R6 e eet DDB addr 

6 C : J omg ; Celt ctrl init routine. 
C 4 
C8 5 


D 
1 
50 01 43 MOVL » RO ; Set success status. 


$: 
$: RSB ; Return w/ status. 
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a -SBTTL JIOCSUNITINIT = Call driver unit init. routine 
FUNCTIONAL DESCRIPTION: 

Input values for a device driver's unit initialization routine are 
loaded into the proper registers, the routine starting address is 
located, and if a routine exists, it is called. 

INPUTS: 
R5 
R8 


OUTPUTS: 
RO-R4 =Destroyed 


NOTES: 


B address 


uC 
CRB address (primary) 


: There are two unit initialization routine addresses in the I/0 data 
: base; CRBSL_INTD_VECSL_UNITINIT and DDTSL_UNITINIT. Normally, only 
3 one of these two places should contain a unit initialization routine 
: address. However, for the console block storage device, the both 

3 dy ape Seaton an address, and the DDT contains the address which 
: must be used. 


In this case, the CRB is shared by the console terminal and console 
block storage devices. The CRB contains the address of the unit 
initialization routine for the console terminal, and the console 
terminal DDT contains no unit initialization routine address. Thus 
the console terminal device ‘'fits'’ the ‘normal’ case. However, the 
console block storage device DDT contains a unit initialization 
routine which differs from the console terminal unit initialization 
routine and whose address is stored in the DDT. 


Since the CRB is shared and contains the wrong unit initialization 
routine address for the console block storage device, the DDT must be 
inspected first. Initialization for the console terminal will be 
accomplished correctly regardless of which address is checked first. 


p++ 

3 Unit initialization routine parameters: 

> INPUTS: 

3 R3 CSR address (primary) 

3 RG CSR address (secondary, same as primary if no secondary exists) 
: R5 UCB address 

> OUTPUTS: 

; Must preserve all registers except RO through R4. 


IOCSUNITINIT:: 
MOVL UCBSL_DDT(R5), RO ; Get DDT address. 
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; Get DDT unit init rout addr. 


DDOTSL UaIT IMI TCRO) RO 
RO, #TOCSRETURN 


CRBSL_INTD+VECSL_UNITINIT(RB), rb 


=< 
oOo 
Sad 


R4 
RBSL_INTD+VECSL_IDB(R8), R3 
I ae CSR(R3), R3 

RESL_LINK (RB), R1 

0 
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CSR_EQ 0 
CLINTD+VECSL_IDB(R1), R4 


J 
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Null unit init routine? 
Branch if real unit init rout. 
; Get CRB unit init rout addr. 
Branch if no unit init rout. 


Assume no IDB exists. 
Get IDB address. 

Branch if none. 

; Get primary CSR. 

Assume no sec. CRB exists. 
; Get secondary CRB addr. 
Branch if none. 


; Get secondary CSR addr. 


Call unit init routine, and 
return to caller. 


No unit init routine to call: 
return to caller. 
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Parse Device Name String SEP-1984 4) 
re : § -SBTTL Parse Device Name String 
FE $208 
4; rt ; IOCSPARSDEVNAM = parse device name string 
FC tig ; This routine parses a device name string, checking syntax and 
FC 2413 ; extracting node name, allocation class number, and unit number. 
FC 2614; device type format is specified, it is converted into the internal 
4; 212 3; compressed format. 
4 ‘i? ; INPUTS: 
8 FC 418 3 R8 = size of name string 
FC 2420 ; R9 = address of name string 
8 4: : 1s R10 = flags 
ase : : OUTPUTS: 
OBFC 2425 ; RO = SS$_NORMAL = valid name string 
O8FC 24 § ; = SS$_IVDEVNAM = invalid device name string 
O8FC 2427 ; Re = unit number 
O8FC 2428 ; RS = Length of SCS node name at head of name string 
O8FC 2429 ; or allocation class number 
O8FC 2430 ; or device type code 
O8FC 2431 ; R8 = size of name string 
pore 4 § : R9 = address of name string 
BFC 2433 ; R10 = fiags 
O8FC 2434 ; R4 - R7, R11 preserved 
O8FC 2435 ; 
oare 5037 
pore $38 ENABLE LSB 
O8FC 440 IOCSPARSDEVNAM: : 
0070 8F O8FC 2441 PUSHR #*M<R4,R5,R6> ; save working registers 
58 =D $44 128 TSTL R8 ; check name string Length 
¢ 13 090 44 BEQL 30$ ; branch if null - error 
54 ing. aRF 444 MOVQ R8B,R4 3; copy name string descriptor 
Ue ee 907 2445 SUBL3 #1,R9,R6 ; default is no node no allocation 
43 re ; class, set pointer before beginning 
9 44 ; of the string 
69 58 4 3A ape <e8 LOcc #*A'S" RB, (RI) : scan name for a ‘S$ 
3 3 90F 244 BEQL 10$ ; failed to find one - no nodename 
56 1 p 911 2450 MOVL R1,R6 : found it, save pointer 
2 C 0914 2451 193: LRQ : init unit number and node name 
50 6 9A 318 12g 20$: MOVZBL (R5),RO : get next character 
1150 06 €1 0919 245 BC 6,RO, 408 : Br if code O-*X3F = numeric or $ 
5 A ai8 454 BICB #*X20,R ; collapse lower case to upper case 
SA 8F 1 09 455 CMPB 9 #*A'2' 3 poss le alphabetic? 
1A 0924 436 BGTRU 6$ : br if not 
41 8F 9 91 0926 24 CMPB RO,#*A‘A' ; possible alphabetic? 
1E Q92A +28 BGEQU 08 ; branch if OK = store it 
6F 11 , : $23 30$: BRB 150$ 3; no - error 
92E 2461 ; Non alphabetic - may be numeric or ‘'$'’ 
92E 2462 ; 
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463 40S: CMPL R5,R6 ; hit the ‘'S'’ yet? 

464 BEQL 3 § : yes, deal with it 

465 BGTRU $ $ po t, digits are unit number 

4 § CMPB RO, #*A'9' ; legal? 

46 BGTRU 150$ ; no, error 

rb CMPB RO,#*A'0' ; lega 

46 BGEQU 70$ > yes, accept it as alpha 

t59 BRB 150$ 3; no, error 

£56 ; $ in device name - either node name or allocation class. 

474 50s: SUBL3 = R9,R5,R3 3; compute length of node name 

iS BNEQ 70$ 3 Sranch if A bla FI - process the $ 
<r ; Process allocation class number. 

138 é0s: INCL RS ; move over ‘'$"’ to allocation 

rt DECL RG ; class digits. 

48) BSBB G _e ; convert allocation class. 

4 ¢ MOVL R2,R ; store requested allocation class. 
4 BLEQ 150$ ; leq zero is not legal. 

484 BISB CxO ST_ELASS AIG ; set allocation class flag 

485 CMPB #*A'S' LR ; was terminator a ‘'$''? 

$38 BNEQ 150$ : if not, invalid device name. 

48 MOVQa R4,R8 3 reset device name - unit size. 

tt} TSTL RS 3; check remaining string count 

489 BGTR 208 : characters remain, process them. 
rh BRB 150$ : else, invalid device name. 

136 70$: MOVB RO, (R5)+ 3; store potentially upcased character 
rhs SOBGTR R4,20$ 3 any more characters to scan? 


132 ; End of alpha scan. Make sure we actually got a non-null device name. 


499 bos: SUBL R4,RB ; subtract unit number from string 
9 BEQL 156$ ; if eql no device name specified 
49 INCL R6 3; point past $ in node name 
CMPL 8 R5 ; see if we've processed any more chars 
BLSsu -90$ : branch if yes 
BLBS R10,150$ ; branch if physical - not valid 
BBC #10CSV_ANY,R10,150S ; or if not generic search for any 
BRB 100$ 3; node name only - verify end of string 


; Process unit number and make sure there's no trailing junk. 
Re 


roses 
So 
on 
o 
> 
@ 


; init unit number to 0 

; see if there's anything left 

110$ ; branch if not 

B #10C$M_PHY,R10 3; set pays vce’ fla 

B GE TNUMBER 3; convert unit number 

1 R 3; return terminator to string count 
R ; 


O---Dow 


reached end of string? 
150$ 


branch if not - error 
#1OC$V_TYPE,R10,190$ branch if mame is a device type 
#SS$_NORMAL ,RO 


successful parse 
#>M<RG,RS,RO> : restore registers 


and return 
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roe ff 


ee] 


$38 i: Invalid device name 
E 05 0998 140$: TST (SP)+ ; pop GETNUMBER return address from stack 
50 0144 Hi Be 99 & 1808; mov EWE Fapg~t VDE VNAR.AO ; Set nvalid device name 
F2 1 9A 5 BRB 150$ 
gag $859 
) 3 
ey 8 ; Routine to convert ASCII to integer 
oe : Inputs: 
9A4 3 R2 assumed zero 
9A4 3 R4 size gt string 
ey : 3 as starting address of string 
~ § 3; Outputs: 
9A4 8 : Rg terminator character 
GAS 3 R converted number 
9A4 2540 ; R4 size of string with number and terminator character removed 
ey if 3 R5 address of first character after number terminator character 
9A4 2543 ° 
50 8 9A Q9A4 44 160$: MOVZBL (R5)+ RO 3 get next character. 
50 0 82 Q9A7 2545 SUBB #*A'O' RO ; base it at decimal digits. 
8 1F Q9AA 278 BLSSU 1708 ; branch if not a decimal digit. 
09 65 91 O9AC 3? CMPB Ro ca) ; is it a digit? 
1A O9AF 48 BGTRU 170$ : branch if not a decimal digit. 
38 A C& Q09B1 254 MULL #10,R2 ; scale current unit number by 10 
0 CO 0984 50 ADDL RO,R2 ; add new digit to accumulation. 
987 1 GETNUMBER: 
EA 54 F4& 0987 § SOBGEQ R4,160$ ; count off a character 
06 = =«11 4 z BRB 186$ ; branch if no more characters 
50 FF AS 9A 098 5 170$: MOVZBL an Re RO 3 restore terminator character. 
00008000 8F 32 D1 09 6 180$: CMPL  R2,#32768 : check number value 
d it 9C BGEGU 1468 : branch if not valid 
3; return to caller. 
0 9C9 RSB Lt 
aA deep 
OCA 61 ; Parse device type name. We do this last because all the regular device 
9CA § 3 name yet \eetion is necsesary anyway. Now we just have to do the 
43, Z 3; additional checks and pack the characters. 
53 05 Q9CA 5 1908:  TSTL R ; check if we saw node or alloc class 
F 1 9CC § BNEQ 150$ 3; branch if so - not va 
50 2 7 -s 9C 6 SUBL3 = R9,,R5,RO ; compute total Length of string 
0 C 9D rt: SUBL R 8 ; compute length of unit number string 
02 ? 9D § CMPL RO,# 3; must be two digits 
9D 9 BNEQ 156$ ; branch if not = not valid 
55 D SDA 7 MOVL R Re 3 copy name address again 
02 8 » 9D if CMPL Re # 3; check minimum name length 
F Q9E0 257 BLSsy 150$ ; too short = out 
50 85 40 8F 8 9E 74 SUBB #*ATA*=1,(R5)4,R0 3; get char and convert to compressed 
53 05 11 «+50 «FO O9E 75 INSV. RO,#17,45.R : store compressed code 
50 85 40 8F 8 9EC 76 SUBB3 « #*AA'=1,(R5)+,R0 3 get char and convert to compressed 
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R fl2.85.R3 ; store compressed code, 

R8,¢ ; check how many chars | 7” 

; string _ ton er than 5 - server 

; short - don +9 ake 3rd alp 

; get char and convert to senoreneed 
; store compressed code 

add in unit number 

; clear physical flag 

done 


RO,#7,#5,R3 


= 
CMPL 

BGTRU 

BLSSy 

SUBBS «= #*ATA=1, (R5) +, RO 
INSV 

ADDL oR 

BICB #16C$H_PHy R10 
BRW 120$ 


FF 


or Dev 


o 
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SEP 
-SBTTL Search 1/0 Database for Device 


IOCSSEARCHINT = internal I/0 database search 


This routine searches the 1/0 database for the specified device, using 
the specified search rules. Dependin 


not be taken out on the device when 4 is found. 


>>>>rrrrrrrr>,r 
4 se 


Note! While this routine is non-paged and therefore may be called at 
elevated IPL, the device locking code it calls is not. Therefore, only 


searches with IOCSV_ANY may be called from elevated IPL. 
INPUTS: 


OOCCOCOCOCOCOCOCOOOOOOoOOoOoOo “Mm 


NOUS WO OONOAOUES UT" OOon 


OOOCOCCCOCOCOCOOCOCOOO: 
>>>>r>r Yr rrr 
— —) ss 


b > 
— — — —s 
SOooocoocoocooooooQoQoQoQooQooQoQooooooooooooo 


OOoooco 
>> 


WN OQ ODNA NE WN 9 ODNOAU EWN - O OONOU SEWN O0OW 
e tees 


R¢ = unit number 

RS = length of SCS node name at head of name string 
or allocation class number 
or device type code 

8 = size of name string 

= address of name string 

1 

/ 


ags 
edstecs to store lock value block 
atabase mutex held, IPL 2 


ann 
—~ 


ORMAL = device found 
OSUCHDEV - device not found 


_N 
N 
DEVALLOC = device allocated to other user 
-NOPRIV = failed device protection 
_TEMPLATEDEV = can't allocate template device 
_DEVMOUNT = device already mounted 
_DEVOFFLINE = device marked offline 
DDB 
arptes block 

4, RB - R11 preserved 


R 
R10 - 


on the search, a lock may or may 


ODEVAVL = device exists but not available according to rules 


Note: If failure, R5 - R7 point to the last structures looked at. 


" 
he 


-ENABLE LSB 
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44 IOCSSEARCHINT:: 
PUSHR #*M<R2,R3,R4,R8,R9> 3; save registers 


: Search the system blocks ee a@ suitable node. If we are doing a search 
: by allocation class, gener c¢ device type, or no node name is given, 
: a L system blocks qualify. 


MOVAL S$CS$GQ CONF 16 R7 ; get head of SCS SB List 
108: MOVL SBSL ee Ce §,RO 3; get next system 
giSCs 


1OSUBNPAG - NONPAGED 
yO. 000 Search 1/0 


O31C 8F 8B 


pheck 
CMPL R GQ_ CONFIG ; are we back at List head? 


57 Q0000000'EF 0D 
a 
BEQL 5 :; branch if yes - all done 


00000000' 9 


PROPPPOPOPOPONIPUTITITITIN Oe 
PAEAEAPOPAPAPOPSOAOSOSOSOSOSOOOSS 8 ™ 


PEA AXA MII 


MEW OOONOULE WN OOONO 
= 
o 
<= 
> 
rm 


57. 50 v0 RO,R7 
56 S54 A?) OD SB$L_DDB-DDBSL_LINK(R7),R6 ; pick up DDB Listhead 
a Ee R6,R5 ; make sure UCB is non-zero 


: allocation class or generic dev, 
BITB #IOCSM_CLASS!1OCSM_TYPE,R10 

BNEQ $ 3; check qvery system block 

mova SAVRB(SP),R ; get orig dev name descriptor 

MOVL AVRS(SP),R 3 get node name Length 


b 
AE 
8 1 BEQL $ ; Branch if none = go ahead 
44 A7 5 91 CMPB R3,SBST_NODENAME (R7) 3; check node name Length 
b3 \¢ 006 BNEQ : branch if not 
69 45 a7 ; 66 CMPC3 R3,SBST_NODENAME+1(R7),(R9) ; node names match? 
CE 2 $68 BNEQ 10$ 3; branch if not 
; Found a suitable system block. Search its st. 
of Found itabl tem block. $ h its DDB Li 
50 01 3¢ 676 20$:  MOVZWL #SS$_NORMAL,RO 
5304 Ag as 67 ADDL3 #1,SAVR3(SP5,R3 ; include the ''$"’ 
5 ; C 674 ADDL R3,R9 3; skip over the nodename 
58 65 C 675 SUBL R35,R8 ; adjust the length 
> O78 BLEQ 60$ ; if no device name, just return SB 
50 6 00 or8 30$: MOVL BOSSE LIME (RG) RO : get address of next DDB 
Ds 67 BEQL 0$ : if eql end of List 
56 0 00 ? 0 MOVL RO,R6 
55 D4 Ag DE 1 MOVAL coBSL _uce- BSL_LINK>(R6),R5 ; initialize primary UCB address 
A 6 § BICB #10C$M_ ; new ODB = clear secondary flag 
SE 5A 1 €0 6 BBS #IOCSV~TYPE R10,100$ ; branch if generic type search 
07 5A 2. €1 684 BBC 43 | CLASS, R10, 40$ ; branch if no class to check 
3C A6 «(04 AE ODT 685 CMPL AVR3(SP) ,DDBSL_ALLOCLS(R6) ; else, is allo. class right? 
3 1 6 § BNEQ 0$ : branch if not, try next DDB 
15 A6 69 ‘ A 40$: CMPC3 Re (R9) ,DDBST_NAME+1(R6) ; check device name 
DB A : BNEQ 30% :' if no match, try next DDB 
50 114A 9A OA MOVZBL DDBST_NAME(R6) ,RO ; get length of name in DDB 
7 8 A ° ’ CMPL R8,RO 3; check name lengths 
4 A 9 BEQL 1008 : if they match = OK 
; Dd A $36 DECL B 3; try subtracting out controller letter 
50 91 A 9 CMPL R8,RO 3; and see if this matches 
cB 3 A 694 BNEG = 3 f : if not, keep trying 
39 5A 3 Ag 95 BLBC R10,100$ ; branch if not physical search - OK 
41 8F 15 A640 91 OAd 696 cHPB OD BET _NAME*1(R6)CROI,#*A"A' : is’ this controller A? 
31 13 OA9B 9 BEQL $ ; if so, search it 
BE 11 44 38 BRB 30$ ; if not, keep looking 
ASF 00 : End of search = no suitable device has been found 
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] 
D 
AQF 
50 908 8F 3 ASF 
4D 5A 4 AAS 
50 980 8F ‘ AA8 
46 AAD 
AAF 
AAF 
AA 
56. 66S COD 
55 04 46 D AB 
30D 


ro 


MOVZWL #SS$_NOSUCHDEV Re 3 no device found 
BBC #locsy EXISTS,R10,140$ : branch if not seen 
te #333_NODEVAVL .RO ; otherwise status is not available 


Oro 
vr. 
o 
A 


: To here if we're just returning a system block, with no device specified. 
60$:  MOVL (R6),R6 ; get first DDB 
MOVL PORSt UCBCRG) JRE 3; and first UCB 

1 BRB 140$ 3 and return 

; To here when all UCB's on a DDB have been searched. 
A1 SA 01 €0 708: BBS #1OCSV_TYPE,R10,30$ ; if generic type search, try next DDB 
; To here when all DDB's on a system block have been searched. 
5A 06 8 


0$: BITB EIQCOM_CLASS! SOCSA_TYPE ATP : if generic type or alloc class 
90$ ; keep searching system blocks 


aadaaattt414 1424743 


NNN NSN LELOLSITIIe 


1 
iy 
18 
14 
12 
1? 
H i 
5A 09 9 1 BITB a OCSM_PHY! 1OCSM_LOCAL,R10 :_if physical or local only 
d9 = § BNEQ 3; we're done 
04 AE OD TSTL AVR3(SP) ; if there was an explicit node 
D4 Ss «2 4 BNEQ 0$ ; we're done 
FF4D = 331 5 90$: BRwW 10$ ; else go try next system block 
ACE ? : Found a suitable DDB. Search both its UCB Lists for the right UCB. 
52. 6€ 7D OAC 9 100s: mova SAVR2(SP) ,R2 3; get unit number and device type 
54 O00000000'EF DO OAD 0 MOVL  SCHSGL_CURPCB,R4 ; get PCB address 
AD 1 NEXTUCB: 3 re-entry for next UCB 
07 SA OS €1 OAD § 110$: BBC #10C$V_2P,R10 1998 3 branch if on primary path 
55 O0A4 cs D0 ADC ; MOVL UCBSL_2P_CINK(R ),R5 —; Link to next secondary unit. 
55 30 AS 00 AE 5 1908: MOVL VERSE LINK CRS) RS : link to next primary unit. 
17.1 AE $ 130$:  BEQL $ ; branch if no more units. 
gf 10 OAE9 BSBB POCSTESTUNET : is this unit ok? 
07 50 €8 OAEB 8 BLBS RO,140$ 3: branch if successful 
E6 SA 04 €1 OAE 9 BBC #1ocsy EXISTS,R10,110$ ; keep going if we haven't seen it yet 
5A E9 ne 40 BLBC R10,110 ; or if not physical search 
O31C 8F BA OAF 41 1408 POPR #*M<R2,R3,R4,R8,RI> 3; restore registers 
05 wr g RSB 3 and return 
B 5A. 05 €E2 OAFA 44 150$ BBSS #10C$V_2P,R10,70$ 3 bron h_ if secondary path already searched 
5 9C A6 DE OAF 45 MOVAL <DDBSL_2P_UCB - nitialize secondary UCB address. 
$8 146 $L_2P_LINK>(R6) ,R5 
eB a3 BRB 110$ 3 go search secondary path 
4 


~-DISABLE LSB 
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: r f -SBTTL Continue 1/0 Database Search 
Boe Sp8a 3 
: 4 t 5 ; IOCSSEARCHCONT = internal 1/0 database search 
4 27 4 : This rows toe continues a search started with a call to IOCSSEARCHINT. 
BOS 27 8 ; It uses IOCSSEARCHINT's outputs as the starting point at which to 
B : f 3 3; resume. 
B 4 , : INPUTS: 
4 2763: Re = unit number 
B04 2764 ; R35 = length of SCS node name at head of name string 
4 2765 ; or allocation class number 
4 706 5 or device type code 
4 2767 ; RS = last UCB 
pede pos : RE = last DDB 
04 6 : R7 = Last system block 
0804 2770 ; Re = size of name string 
0B04 2771 ; Ro = address of name string 
bebe ah : R10 = flags 
04 27735; R11 = address to store lock value block 
pate oe 3 1/0 database mutex held, IPL 2 
080% £76 OUTPUTS: 
0804 2778: RO = SS$_NORMAL = device found 
0B04 2779; = SS$_NOSUCHDEV = device not found 
0B04 2780 ; = SS$_NODEVAVL - device exists but not available according to rules 
4 781 ; = SS$_DEVALLOC = device allocated to other user 
4 27 § 3 = SS$_NOPRIV = failed device protection 
0B04 2783 ; = SSS_TEMPLATEDEV = can't allocate template device 
0B04 2784 ; = SS$_DEVMOUNT - device already mounted 
. 4 2785 ; = SS$"DEVOFFLINE - device marked offline 
3 r 4 $ 3 Rs PY Ucar 
: = 
4 27 8 : R = systen block 
? f ; 3 R10 - R4, RB - R11 preserved 
OB " 44 : Note: If failure, R5 - R7 point to the last structures looked at. 
2 os 
4 3¢ IOCSSEARCHCONT:: 
gste or Be 4 279 PUSHR “#°M<R2, R3,R4,R8,RI> 3; save registers 
55°° E 8 279 BBCC }3=—._-« # LOC SV hit. aig {0$ : check if alternate UCB in use 
008 ¢ D0 C 798 MOVL  UCB$L_BP_ALTUCB(R5),RS5 : Link back to other to continue 
11 11 2799 108: BRO NEXTUCB ~ 3 continue search 
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} ; -SBTTL Check UCB Against Search Rules 
61 3+ 
1 4; 
3} 5 ; IOCSTESTUNIT = Check UCB Against Search Rules 
+ 3 : INPUTS: 
1 § 3 Re = unit number 
1 1 3 R35 = device type code 
BI 173 R4 = PCB address 
61 \ 3 R5 = UCB address 
Bi 13 3 R10 = flags 
3 i 3 Ril= address of lock value block 
! 18 3; OUTPUTS: 
1 18 $ RO = SS$_NORMAL - eligible for use according to flags 
0B1 819 ; = SS$_NOSUCHDEV = wrong unit number 
0B1 S 0; = SS$-“DEVALLOC = device allocated to other user 
0B1 13 = SS$_NOPRIV - failed device protection 
081 § 3 = SS$_TEMPLATEDEV = can't allocate tenplate device 
081 : = SS$"DEVMOUNT = device already mounted 
081 4; = SS$_DEVOFFLINE = device marked offline 
at 8 é 3 
081 : y 
0B1 8 IOCSTESTUNIT:: 
50 0908 8F 3C 0B! 829 MOVZWL #SS$_NOSUCHDEV,RO 3; assume wrong device 
06 5A €9 0818 0 BLBC 10,T0$ 3; branch if not physical search 
54 AS 52 81 0818 1 CMPW Re UCBSW_UNIT(R5) 3; is the unit number exactly right? 
56 12 best § BNEQ 70$ ; branch to error if not right. 
09 SA O01 €1 1 4 108: BBC #1OC$V_TYPE arte 20$ ; branch if not searching for dev type 
00 ED 3 5 CMPZV WMS as chs MTVELN Neo 
53 008C (3 0828 : te MEDIAN PrD(RS), R3 ; is this the requested type? 
49 i B2C 3 BNEQ 0$ : branch if not 
5A 1 8 : ‘ 20$: BISB #1OCSM_EXISTS note sy igible device seen 
OA 3C AS OO e1 ; 40 BBC #DEVSV_ Wt ueést ea McyAnack ),30$ ; is this peryee path to a local d 
55 0A8 D B36 41 MOVL UCBSL_BP_A ; yes, get local path UCB address. 
SA 100 8F A : ¢g BISw #10CSA_ ACTS rior 3 note alternate UCB in 
3 5A 008% + +6 r 30$: Bru #10CSV. ANY,R10,40$ ; if SEARCHALL, finish with success. 
B47 28 3 
+! rt) 3; Check the device reference count and allocation status. 
0 C 3c 60847 2848 408:  MmOovZuL usss DEVMOUNT heck if device is already mounted 
53 08 a6 15 50 BA rt BBS EvSv ANT ‘Nees _DEVCHARIRS) . 100$ 
er Os : 9 MOVZWL ash <peVA C,R 
“a re | Oe E B56 BBS Hat yg MOUNT iss. UCBSW_STS(R5),100$ ; branch if noun in progress 
8 B58 § TSTW W_REFC(RS) ; is reference count z 
: BEQL 3 branch if paterenae. ae is zero. 
i} E B6 23 BBC #1OC$V_MOUNT, 4 308 : if mounting... 
A 3 +4 5 BBS #1OC$V~ALLOC ,R10,60$ gare mount 
0c 4 sh 7 F B68 36 BBC DE VEY ALL, Geest “DEVCHARIRS) 0$ f not al located 
03 1 B6D BRB 6 ; Pea N My BA allocat 
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BOF 
4 5A €9 e 50$: BLBC 00$ ocate: error if not ph 
60 AS 3 AS 01 $ at CMPL UEBEL PID(RS) ,PCBSL picked does this process oun the device? 
2D «12 $: BNEQ : branch to error if not our device. 
B7 : ; Check a all the other miscellaneous junk that can make a device not 
{4 3 available. 
5 4 3¢ 087 BOS:  MOVZWL asss NOPRIV.R eck if device is spooled 
06 38 8 86 Ei OB7¢ i 8 #OEV VASPL UC cBst -pevewanin§)« $08; branch if not 
B81 6 IFNPRIV AL POOL : el se ¢ Brocess must have ALLSPOOL priv. 
50 0084 ef 3¢ 0887 90$:  MOVZWL DEVOFF Tne RO gh eck f f device is available 
15 38 A 2. «€1 ¢ BBC PoEVSY tee L DEVCHAR{R ) 100s 
19 64 A 4 5 4 BBC #UCBSV- ON Line UCBSW_STS(R5), 1 
0 21DC 8F B96 LK MOVZWL #SS vere NEOeY ,RO™ ; check if device is a template 
06 64 AS OD : : 7 B #UCBSV TEMPLATE ,UcBSW_ stk 100$ 
F45D' BA 874 BSBW EXESCHERDAC i¢ heck device protection 
0A 50 «EB a o? BLBS 3 continue if accessible 
ens er : To here on any error. 
05 SA O ES dBA 8 {00$:  BBCC #1OC$V_ALT,R10 1 3; check if alternate UCB in use 
55 Q0A8 C +4 BAA 80 MOVL UCBSL_BP “ALTUC CB(RS) RS : Link back to other to continue 
0 pear a 110$: 3 return 
a0 4 3 We've passed all 9 local tests. Now try to take out the appropriate 
eae 23 3; lock on the device 
51 58 0 088 8 $ i208: MOVL R11,R1 ; value block address 
05 13 088 8 BEQL 1308 : branch if non 
61 7C OBB 88 CLRQ (R1) : initialize eelue block 
08 Al 7C¢ eae Hed CLRQ 8(R1) 
19 3¢ AS) 600—CséE1 90 130$: BBC #DEVSV_CLU,UCBSL =DEVCHARZ (RS) » 150$ ; br. if not cluster visible 
50 05 00 OBBF 91 MOVL #LCKSK_EXMODE ,R ; assume exclusive lock 
c 5A OA «EO bate 3¢ BBS #lOcsv “ALLOC. 10,1408 : branch it allocation requested 
9 —. a ey ¢ 9 BBC #10C$V_MOUNT ,R1 *140$ + branch if not mount mode 
03 38 AS) = 617)~—SC EO =(OBCA 02894 BBS #DEVSV— ~AUL yeest” _DEVCHAR(RS), 1408 ; br. if ei lected 
50 4 8° OBCF $32 MOVL #LCKSK~PWMODE ,RO™ ; mount, no allocation - use PW 
F42B° Bene 36 140$: BSBW IOCS$LOCK_DEV ; and try to take device lock 
CE 50 «=€6—€9) Ss OBD 89 BLBC RO, 100$ 
50.01 BO 0BD8 898 150$: MOVL  #S$$_NORMAL,RO : indicate success 
05 0BDB 99 RSB 


I1OSUBNPAG = NONPAGE 
voe-000 IOCSTHREA 
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“SEP=19 
IOCSTHREADCRB 


4 & SYS.SRCJIOSUBNPAG.MAR; 1 


FUNCTIONAL DESCRIPTION: 


This routine will thread a CRB onto the duetime chain headed by 
IOCSCRBTMOUT. 


IOCSTHREADCRB 

CRB 

RO ; Save a register 
G*IOC$SGL_CRBTMOUT, RO ; Pointer to List head 
(RO) ; End of the Line? 

208 ; Yes, go add new one 
(RO), RO ; No, get next block 
10$ : Try. try again 
CRBSL_TIMELINK(R3),(RO) ; Link the new block in 
RO ; Restore register 


; Leave 


oc 2 ~SBTTL 
BDC 
BDC 2905 ;++ 
BDC 2904 ; 
\ OBDC 2905 ; 
BDC 29 § : 
Be $908 ; 
BOC 308 H 
BOC 910 ; CALLING SEQUENCE: 
BOC 911; 
BOC 318 3 JSB 
DC 913; 
BDC 914 ; INPUTS: 
OBDC 2915; 
445 218 : R3 ==> 
BDC 2917; 
OBDC 318 ; OUTPUTS: 
+93 919 ; 
oc 920 ; NONE 
pene 921 ; 
DC 29 § ie 
OBDC 9 
OBDC 924 IOCSTHREADCRB:: 
50 DD oc 925 PUSHL 
50 00000000 ' GF D D 9 § MOVAL 
60 0D E 9 10$: TSTL 
05 1 OBE 928 BEQL 
50 68 dO yee? 929 MOVL 
r 11 3 2 9 SRB 
60 14 A3_ ODE E 9 ¢ 20$: MOVAL 
50 8ED0 F 9 POPL 
05 F 934 RSB 
F6 2935 
F6 29 § 
OBF6 293 .END 
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9 
8 3 :2 AX/VMS Macro V04-00 1 ~— (%) 
wt "Oreo obs ooichi7 YSYS\ SRCIIOSUBNPAG. MAR; 
10SUBN ‘ 
SSBASE 8 DDBST “HARE : 0 
$SDISPL \ 43 Ata on . ' 
SSGENSW : DDTSL-REGDUMP . 0 
SHIGH F : DDTSL-START = 1 
SSLIMIT . BOLL TENT aco R 02 
Ss DEALL = 001 
SSMNSW 1 BX 8 
SSMXSW * QUO006CA R 8g DEVSH_ REX pe y 
ADD DOLLAR + Be DEVSV-2P . fA 
= = 
ADPSC _NUMDATAP 2 % DEV SyAE = 098 
ADP$L_CSR " z 3 1 DEVS$V—COP = 6 000 
ADPSL t~pPart : 014 DEV$V~CLU . 0900000 
DPQ ORS = 0000005¢ DEV$V_FOD = 0000001 
a = $0888 Baan = 9388808 
- = EVS$V = 000 
ADPSL _MROFL = RoRggROE DEVSV-OPR s a0990007 
ADP$W_ADPTYPE = 9000006 DEVSV~SPL = 00000002 
DP$W_DPB1TMAP = 0000015E EVSV~TRM = 00000001 
PSW"MRFREGARY 0064 DEVSV. . 02 
ADPSURRNRE GARY " ganbbeBe ggg ikea SORHHee Re 
Agia Bee SES a ssumeg oe 
= Pra = 
ATS UBA 00000000 0 DYNSC. TWP 2 30000070 
BI eeeeeee ed ae DYNSC~UC = 00000010 
BOOSGL_SPTFREH ekteeeee X EMB$B DV ERTCNT = 00000012 
Bus IncoNs Tae ceeeees 08 Enisa-bv-105 = GO090018 | 
ee 
BUGS$_ IVBYTEALGN Reeeekee x 0 END BROADCAST Beoko ree R 02 
BUGS -UNSUPRT CPU = 00000002 END~CONBRDCST a 
EANSCTDASSGN : PPEFEFDS ERLSRELEASEMB 000006E3 R _ 8 
= gee 
CORPSC_BCNT = 0000000¢ EXE SALONONPAGED ome Ae 
DRPSL_FP = BO 08808 EXESALTQUEPKT teereeee 8 
CORPSL_FQFL = 00000010 EXESCHKRDACCES eeeeneee x 
RPSL_FRS = 00000014 EXE$SDEANONPAGED eeneeere X 0 
CORPSL_FR4 = FF FEEFAQ EXESGB_CPUTYPE aeeeeeee KX 0 
CDORPS$L_IOQFL = 0880008 EXESGL-ABSTIM aeeneeee = X 0 
CORPSL_RWCPTR = 0000003¢ EXE$GQ-SYSTIME sevetene 5 
CORPSL_UBARSRCE = FFFFFFDO 0 EXESMOONTVER eeeneese 
RPSW~BOFF pene et EXESTEST CSR 88 0 
ott re Ce a sin, 
cesresnsecnne? ae [bet Abe : Sessa 
oe = = 
CRBSL_INTD = 0 {PBST “OUNER 8 RG 
CRBSL_L INK = 00 : 1OCSACLOSPT Q 
CRBSL_TIMELINK > 4 LOCSALODATAP 18 R 
CRBSL_WOFL < : LOC SALOUBARAP H RG 
CRBSM_BSY . 0 10C $ALOUBAMAPN AF RG 
CRBSV"BSY = ! 1OCSALOUBAMAPSP 455 RG 
C$_DTSK z Q 10C SALOUBMAPRM Abe RG 
DOSS. <P UCB. = 2046 10¢ $ALQUBRAPRRN 118 RG 
poeee eC Orl = 0000004 1OCSALTRE 
DDBSL—LIRK 
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Symbol table ore E bn S84 §9:24:39 {SYS \SRCIIOSUBNPAG. MAR: 1 (58) v0 
1OCSBROADCAST 7 8 RG 1OCSWFIRLCH 7RG 02 
LOCSCANCELIO 9 RG IPL$_ASTDEL = ¢ 
IOCSCONBROCST C RG IPL$_IOPOST = 
LOCSCREDIT_UCB eeeereee x IPL$"QUEUEAST = 6 
LOCSCTRLINTT F RG IRP$C_DIAGBUF 2 4 
IOCSCVT_DEVNAM ¢ RG IRP$L_IOQFL = 9 
LOCSDALOCUBAMAP R IRPSL_MEDIA 2 
IOCSDELETE UCB eeeeeeee =X IRP$L-PID = ¢ 
1OCS$DIAGBUFILL 00000058 RG IRPS$L_SVAPTE = C 
1OC$GL_CRBTMOUT tkeneeee x IRP$L_UCB = g 
IOCS$GL-PSBL rrereene IRP$V_D IL AGBUF s 
LOCSINTTIATE 00001 RG IRP$W_CHAN = 8 8 8 
IOCSLAST_CHAN 9 RG IRP$W_STS 2 A 
I1OCSLAST_CHAN_AMBX 0000 RG LCKSK_EXM™ = 8 8 5 
LOCSLOCK"DEV ekeeeeee x LCKS$K_PWMODE = 004 
IOCSMNTVE 453 RG LOCAL _NAME OOOO6CC R Og 
1OCSM_2P = 990 08 MMGSGC_SPTBASE eeeeeeee =X 0 
1OCSM_ALT ~ 00100 FIN TYE RPO CHE Hb R 02 
I1OCSM_CLASS = 00000004 MSCPSV_MTYP_D1 = 00000016 
1OCSM_EXISTS = 44 54 9h PSV_MTYP = 4444 4 
1OCSM_LOCAL = 0000000 Tuc 944 rg 02 
1OCSM_PHY = 44 001 NO_ SECONDARY 000 eee R 02 
10C PE = 000 are TIRP 000001 02 
1OCSPARSDE VNAM 9098 FC RG 0 OPA$UCBO aeeneeee = X 02 
IOCSRELCHAN 000008A RG 0 BSL_PID = 49444 0 
LOCSRELDATAP 99998 93 RG 0 PCB$Q_PRIV = 00000084 
1OCSRELDATAPUDA 464 88 RG 8 TSL_AD = 000000E0 
IOCSRELMAPREG QOOOSIA RG =O PMSSEND_10 eeeeeeee =X 02 
IOCSRELMAPUDA Harta RG 8 PMS$GL_TOPFMPDB eeeeeeee = X 02 
IOCSRELSCHAN 000 960 RG PMSSSTART_10 eeeeeere =X 02 
1OC$REQCOM 00000143 RG =O PMSEND 90000174 R 02 
IOCSREQDATAP 00000208 RG 8 PR$_IPL = 00 4 
1OCSREQDATAPNW 0000021A RG PR$_SID_TYP730 = 0000000 
IOCSREQDATAPUDA i444 8 RG 0 PR$_SID_TYP750 = 00000002 
IOCSREQMAPREG 0000309 RG =O PRS$_SID_TYP780 = HOON No) 
1OCSREQMAPUDA QOO002F4 RG 02 PR$_SID_TYP790 = 00000004 
1OC$REQPCHANH 80008 E1 RG 0 PRS$_SID_TYP8NN = $0 0008 
IOCSREQPCHANL i EA RG PRS_SID_TYP8SS = 4 
IOC$REQSCHANH 00 CB RG PRS$_SID-TYPUV1 = 38 0007 
IOCSREQSCHANL 464 D7? RG PRS" SIRR = 00000014 
IOCSRETU OSES RG PRVSV_ALLSPOOL = ee 
IOC$SCAN_10DB8 0 of a RG 0 PUTASCTIC 0000708 R 9 
IOC$SCAN_10DB_2P 0000835 RG 0 PUTCHAR 0000719 R 
IOCSSEARTHCONT 00804 RG PUTDOLLAR 98 z18 a 
IOCSSEARCHINT 9 RG PUTNUM , of a 
IOCSTESTUNIT B13 RG REALLOC_CD_MAPREGS 38 61 R 
IOCSTHREADCRB DOBDC RG 8 RELDATAP_COMMON 8 oor R 0 
LOCSUN TINIT BC9 RG RELEASE 000195 R 0 
1OC$V_2P = 8 be 
1OC$V~ALLOC = A RESR1 
1OC$V—ALT = 8 RESR 1 
1OC$V_ANY = $ RESR 14 
IOC$V—CLASS = RESR4 18 
IOC$V-EXISTS = 4 SAVABS... = if 
see = Sessa SAE me ritttty 

= = 
1OCSWFIKPCH DOSES RG = 02 SAVED-R2 = 8 


8 
1OSUBNPAG = NONPAGED 1/0 RELATED SUBROUTINES 16-SEP-1984 00:21:1 AX/VMS Macro V04- 
Symbol table etsy §9:23:33 LEYS SRCTIOSUBNPAG MAR; 1 — (58) 
SAVED_R3 = 0 UCBSL_FPC = 
SAVED_R4 = 15 UCBSL_FQFL = a5 
SAVED_RS = 1 UCBSL-FR3 = 
SAVR = 0 UCBSL_IOQFL = 4 
SAVR 2 4 UCBSL_IRP s 3 
SAVR4 = 8 UCBSL-LINK z 
SAVRB = f UCBSL_MEDIA_ID = 3 
SAVRO = 1 UCBSL_OPCNT = 
SBSL_DDB = 54 UCBSL_PID = 2c 
SBSL_FLINK = 00 UCBSL_-STS = $f 
SBST-NODENAME = 00000044 UCBSL_SVAPTE = 078 
SCHSGL_CURPCB eeeeeeee =X 02 UCBSM_BSY = 1 
SCRLEN 00000010 UCBSM_CANCEL = 69 
SCS$GA_LOCALSB eeeeeeee =X UCBSM_INT = 0000000 
SCS$GQ~ CONF eeeeeeee == x UCBSM_TIM = 000 $0 
SCSSRESUMEWAITR eeeeeeee =X UCBS$M_TIMOUT = 00000040 
SECONDARY _NAME Q0069A R UCBSV_BSY = 380000 
SS$_BUF FEROVF = 00000601 UCB$V_DELETEUCB = $00 1 
$S$_DEVALLOC = 454 ob: UCBSV_ERLOGIP = 8 000 
$_DEVMOUNT = 446 $9 UCBSV_MNTVERIP = 00 444 
SS$_DEVOF FLINE = BO 2888 4 UCBSV_MNTVERPND = 0000001 
SS$_ILLIOFUNC = 000000F4 UCB$V_MOUNT ING = 9000009 
SS$_INSFMEM = 4 bE ay UCBS$V_ONLINE = 00000004 
SS$_IVDEVNAM = 00000144 UCB$V_ TEMPLATE = 00000000 
SS$_NODEVAVL = S44 64 UCBSW_BCNT = 0000007E 
_NOPRIV = 444 UCBSW_BOFF = 44 4 
w AL = 00000001 UCBSW_REFC = 0000005C 
SS$_NOSUCHDEV = 00000908 UCB$W_STS = 00000064 
SS$- TEMPLATEDEV = 000021DC UCBSW_UNIT = 00000054 
TTYSB_WB_F IPL = 4464 008 VEC$B_DATAPATH = 00000013 
TTY$B_WB_TYPE = 0000000A VECSB_NUMREG = SOO NO te 
TTYSK_WB_LENGTH = 00008 0 VECSL_AD = 308 014 
TTYSL_WB_DATA = 00000030 VECS$L_ID = 00000008 
TTYSL_WB_END = tt Cs VECSL_INITIAL = BRO non Tg 
TTYSL_WB_FR3 = Op obbs VECSL_UNITINIT = 0000001 
TTYSL_WB_IRP = 00000024 VECSM_MAPLOCK = 00008000 
TTYSL_WB_NEXT = 0000001C VECS$S_DATAPATH = 00000005 
TTYSL_WB_RETADD = 38 bec VECSV_DATAPATH = 00000000 
TTYSW-WB- SIZE = ; VECSV_MAPLOCK = 0000000F 
$8_DATAPATH = 0000000 VEC$SV_PATHLOCK = 00000007 
UBMD$B_NUMREG = $ 38 VECSW_MAPREG = 00000010 
UBMD$SW-MAPREG = 
UCB$B_BEVCLASS = 0000004 
UCBSB_ERTCNT = 0 
UCBS$B_F iPL = 
UCB$B_ TYPE s A 
UCBSL~2P_LINK z AS 
UCBSL_CRB s 4 
UCBSL_0DB s 
CBSL_DDT z 
UCBS$L_DEVCHAR = 9 
UCB$L—DEVCHAR2 = 
UCBS$L_DP_ALTUCB = A 
UCBS$L_DP~ s A 
UCBS$L_DP"LINK s we 


UCBSL-DUETIM 
UCBSL_EMB 


= 
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1OSUBNPAG 16-SEP-1984 00:21: AX/VM 
Psect synopsis ~3Eb=1 $82 39:25:33 SYS.S 
seeceece wee mn sren$ 
! _Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
o9ar¢ " C3 -) NOPIC USR CON ABS ' LCL NOSHR NO 
SABSS NOPIC USR CON ABS LCL NOSHR 
WILONONPAGED ( 3062: NOPIC USR CON REL LCL NOSHR 
auceseseccesececeuscoes$ 
! “Performance indicators ' 
Phase Page faults CPU Time Elapsed Time 
Initialization $2 g: :00. g 0: : 1.71 
Command processing 1 : :00:00. 0:00:04.3 
Pass 1 69 0:00:31.36 0:01: a8 
Symbol table sort 0:00:04.39 0:00:11.34 
Pass 2 40 00:00:08. 9 Ht S44 
Symbol table output 1 00:00:00. 0:00:00.66 
Psect synopsis output 8 Sb Sha 8 1 ss SY 
Cross-reference output 0:00:00.00 es BS a 
Assembler run totals 1234 00:00:44.90 0:02:22.68 


The working “¢ Limit was 2400 pages. 

182054 Sytts (356 pages) of virtual memory were used to buffer the intermediate code. 

There were 150 pages of symbol table space allocated to hold 2771 non-local and 169 local symbols. 
937 source ¥ AH were read in Pass 1, produc cing 24 object records in Pass 2. 

9 pages of virtual memory were used to define 55 macros. 


Macro Library name 


- 55$DUA28:CSYS.OBJJLIB.MLB; 1 35 
$255SDUA28: SYSLIBIJSTARLET. MLB; 2 1 
TOTALS (all Libraries) 4 


3009 GETS were required to define 47 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: IOSUBNPAG/OBJ=0B8J$: IOSUBNPAG MSRC$: IOSUBNPAG/UPDATE=(ENHS$: IOSUBNPAG) +EXECML$/LIB 


S$ Macro V04-00 
RCJI 


EXE 
EXE 
EXE 


OSUBNPAG.MAR; 1 


NORD NOWRT NOVEC BYTE 
RD WR 


T NOVEC BYTE 
WRT NOVEC BYTE 


NT CORPORATION 
D PROPRIETARY 


AH-BT13A-SE ; | M 
VAX/VMS V4.0 7 L A 
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E 
N 


